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1. Abstract 

The PDP-9 Extended Memory Address Test tests all of 
memory not occupied by the program to make sure that 
each location can be uniquely addressed. This is per- 
formed by a series of five tests. The first three tests 
write the address and complement address of each memory 
location into itself, and then check each location to 
make sure each is correct. The fourth test slides a one 
through a word of zeroes in each bank, and test five 
writes and reads a pattern designed to detect adjacent 
bit positions shorted within the memory stack. Any one 
or a combination of, the five tests is selectable with 
ACS 3,4,5,6, and 7. 

The program relocates automatically from bank to 

bank, and tests all of core memory from each bank. 

2. Requirements 

2.1 Equipment 

A PDP-9 equipped with a minimum of 8K of core memory. 

2.2 Storage 

The program requires 4476( 8 ) locations of core 
memory. Locations 100 through S00-J are used. 

3. Loading Procedure 
3.1 Method 

The tape supplied is punched in the HRI mode. 
Place the tape in the reader. 
Set the address switches to 100. 
Press I/O RESET, and then READ-IN. 

At the completion of loading, the program header 

will be printed, followed by a halt with the PC a 4477. 
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4. Starting Procedure 

After the header has been printed, set ACS 14 
through 17 to indicate the amount of memory to be 
tested, and press CONTINUE. The program will run 
until stopped by the operator with ACS on a 1. 
4.1 Control Switch Settings 

Immediately after the program header, a halt 
occurs so the operator may signify the amount of core 
memory to be tested. This is done by placing the first 
bank to be tested in ACS 14 and 15, and the last bank 
in ACS 16 and 17. The values should equal bank numbers, 
i.e., bank « 00; bank 1 « 01; bank 2 a 10; bank 3 - 11, 
Press CONTINUE after setting the test limits in ACS 14 ■ 
17. The combinations recognized by the program are listed 
below. 
Test Memory Bank to Memory Bank 
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1 

2 

3 
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3 
3 
Unless other than normal operation is desired, place 
all other ACS down. 

The program recognizes ACS 14 and 15 as the lowest 
order 8K bank to be tested, and ACS 16 and 17 as the 
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highest order 8K bank to be tested. The lower limit 
value must not exceed the higher limit value. When 
this occurs the message "L.L. EXCEEDS U.L." is printed, 
and a halt occurs with the PC s 2064 , To recove^ 
correct the ACS settings and press CONTINUE. 

The amount of core memory tested at one time when 
using a PDP-9 without extended memory is 4K» The program 
automatically relocates to test the area occupied by 
the program. 

The amount of extended memory tested at one time 
equals the amount selected by ACS 14 through 1J , minus 
4K. If 32 K of core memory is to be tested the actual 
amount tested at one time is 28K The 4K field occupied 
by the program is not tested until program relocation 
takes place o 
4.2 Starting Address 

The program may be restarted from location 100 
of the memory bank containing the program (as indicated 
by extended program counter bits 3 and 4) „ If the pro- 
gram happens to be in the higher 4K field (as indicated 
by MB or PC bit 5 on a 1), the starting address is 10100. 
^•3 Program Action 

After setting the ACS and pressing CONTINUE,, or after 
a restart, the program initializes various constants and 
then senses the ACS and checks for invalid switch settings, 
If all is in order the lower and upper limit addresses of 
memory are determined from ACS 14 through 17 . 
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The program next performs the five tests, and 
then determines the next area to relocate to. 
4.3.1 Program Relocation 

Program relocation depends entirely upon the amount 
of core memory being tested. Under certain conditions 
the program will not relocate at all, but will remain 
in the current bank to perform all five tests (see below). 
For PDP-93 equipped with extended memory, the program 
normally first relocates to the highest order memory 
bank under test. From there it relocates to the next 
lower bank (after performing all five tests) . The pro- 
gram keeps relocating to the next lower memory bank until 
it reaches the lowest order bank under test. The testing 
and relocation cycle is then repeated,, This cycle con- 
tinues until stopped by the operator with ACS 0. The 
program will always occupy the lower 4K field (00000 to 
07777) of any memory bank. 

The program will not relocate if any of the conditions 
described below exist. 

a. A forced relocation has been made (section 8.2.7). 

b. The program is currently located in an upper 4K 
field (10000 to 17777), and one or more banks 
other than the one containing the program is 
being tested. 

d. An error was detected in all of the available 
lower 4K areas under test. 

e. ACS 9 is on a one to inhibit relocation 

(section 8.2.5) • 
The EPC Indicators will indicate the current bank 

containing the program. 
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If the program Is testing a single 8K memory bank, 
which contains the program, the upper 4K field is first 
tested, and then the lower 4K field is tested after re- 
location to the upper 4K. The program relocates back 
to the lower 4K field after testing is completed. Bit 
5 of the MB will glow brightly when the program is in 
the upper 4K. 

The program will not relocate if any of these 
conditions exist: 

a. A forced relocation has been made 
(section 8.2.7) . 

b. An error was detected in the opposite 
4K field. 

c. ACS 9 is on a 1 to inhibit relocation 
(section 8.2.5) • 

One complete pass of the program is defined as the 
execution of all five tests on all available memory from 
each memory bank or from each 4K field in the case of a 
single bank being tested. 

The program will print "END" after all tests (or 
those selected) have been performed from one memory bank„ 
If 16K is being tested, one complete pass would be in- 
dicated by END being printed twice, and four times if 
32K is being tested. 

If the program is to be run for lengthy periods, the 
operator may inhibit the message by placing a NOP in- 
struction in locations 215 and 216. These locations 

ordinarily contain JMS CRLF and JMS PNXT, respectively. 
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5. Operating Procedure 

5.1 Operational Switch Settings 

See sections 4.1, and 8.2. 

5.2 Operator Action 

a. Load the program as described In 
section 3.1. 

b. Specify the test limits in ACS 14 
through 17 (section 4.1). 

c. Press CONTINUE. The program will run 
until stopped by the operator. 

The program should be stopped with ACS rather 
than the STOP key, because the program may be performing 
a relocation when STOP is pressed, resulting in various 
constants and addresses being modified. Restarting the 
program would give unpredictable results. 

The PC will =» 2064 when halting with ACS ^ on a 1 . 
To recover place ACS down, and press CONTINUE „ ACS 
changes may be made after the halt, in which case the 
program will execute the new functions specified. If 
no changes are made, the routine which was halted will 
be resumed. ACS $ is sensed at the end of each test 
routine, and after each error print-out. 

5.3 Subroutine Abstracts 

The program executes a series of five tests on core 
memory. Each test writes a unique pattern, and checks 
each location for error. 

Test 1 writes the value of each memory location into 
itself, from the lowest order to the highest order bank 
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under test. The address pattern is then read, and 
checked for error, in the same direction, i.e., from 
the lowest to highest bank. The pattern is then read 
and checked for error in the reverse direction, i.e., 
from the highest bank to the lowest bank. This sequence 
is repeated twice before test 2 is initiated. Test 1 
may be run by itself by placing ACS 3 on a 1. 

Tests 2,3^4 and 5 write and read their patterns 
into one bank at a time. The rest of memory will con- 
tain an all l's pattern. After each pattern is written 
and read, the rest of memory is checked to make sure 
that its pattern has not changed. After one bank has 
been tested the next higher bank in sequence will con- 
tain the pattern, and the rest of memory will equal all 
l's. This is continued for one test until all banks 
have contained the test pattern. The next test in 
sequence will then be initialized. All of memory is 
set l's before the next bank in sequence is tested. 

Test 2 first writes l's into all of memory and then 
writes the complement address of each memory location 
into itself. The only bits which are complemented are 
bits 5 through 17. Bits 3 and 4 are not complemented. 
Test 2 writes the pattern in one bank in the forward 
direction, and then reads and checks for error in the 
forward and reverse directions. The rest of memory is 
then read and checked for error (in the forward direction 
only). After each bank is tested in this manner, test 3 
is initialized. Test 2 may be run alone by placing 
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ACS 4 on a 1. 

Test 3 first writes l's into all of memory, and then 
writes the complement value of each address into itself. 
It differs from test 2 in that all 18 bits are comple- 
mented. The pattern is written once in the forward 
direction in one bank. The rest of memory is then read 
and checked for error (in the forward direction). The 
bank with the address pattern is then read once in the for- 
ward and reverse directions, after which the rest of memory 
is again checked. 

The same bank with the address pattern is then reset 
to all l's, and the same address pattern is then written 
in the reverse direction. The rest of memory is then 
checked; the bank with the pattern is read in forward and 
reverse directions, and finally the rest of memory is again 
checked. The next higher bank in sequence will be tested in 
the same manner. After all banks have been tested in this 
manner, test 4 is initialized. Test 3 may be run alone by 
placing ACS 5 on a 1. 

Test 4 first writes l's into all of memory, and 
then writes a sliding 1 pattern into one bank. Each 
location of the bank will contain a word of all $ x s 
except for one bit position. The bit set is rotated 
one place to the left for each memory location, starting 
with bit 17. The following test sequence is repeated 18 
times, resulting in every bit in each memory location 
being set. 

a. Write all l's into all of memory. 

b. Write a sliding one pattern into one bank,, 

c. Read and test rest of memory. 
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d. Read and test the bank with the pattern 
in the forward direction only. 

e. Read and test rest of memory. 

f. Repeat steps b through e 17 more times 
before testing the next sequential bank 
in the same manner. 

After all banks have been tested with a sliding 1, 
test 5 is initialized. Test 4 may be run alone by 
placing ACS 6 on a 1. 

Test 5 first writes ones into all of memory. A 
pattern consisting of 4 words of ^'s followed by 4 words 
of l's is then written into one blank. The following 
sequence is then executed. 

a. Write the pattern in one bank in the 
forward direction. 

b. Read the bank with the pattern in the 
forward direction. 

c. Read again in the reverse direction. 

d. Read rest of memory. 

e. Write the complement pattern in the forward 
direction, and repeat steps b, c and d, then 
do step f. 

f. Write the pattern in the reverse direction, 
and do steps b, c and d, then do step g. 

g. Write the complement pattern in the reverse 
direction, and do steps b,c and d, then setup 
to repeat a through g on the next higher bank 

in sequence. 
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After all banks have been tested, the program 

then relocates automatically and starts over with 

test 1. Test 5 may be run alone by placing ACS 7 on 

a 1. 
6. Errors 
6.1 Error Print-outs and Description 

Immediately after program load the header shown 

below is printed. 

TEST OCTAL ADR. GOOD BAD BANK WITH PAT. 

Where: 

TEST - the current test which detected an error. 

OCTAL ADR. = the memory location which contains the 
data in error. 

GOOD = what the data should have been in that location. 

BAD = the data as read from that location. 

BANK WITH PAT. = the current bank under test which con- 
tains the pattern of the failing test. For 
test 1, this will equal "ALL", since test 1 
writes an address pattern into all memory 
under test. For test 2,3,4 or 5, it will 
equal 0,1,2 or 3, depending on the amount 
of core memory available for test. 



Example : 










TEST 


OCTAL ADR. 


GOOD 


BAD 


BANK WITH PAT 


1 


060100 


060100 


060000 


ALL 
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060100 
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076677 
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060100 


777677 


776677 
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023000 


000002 


000003 
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047777 


777777 


000000 


2 
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TEST OCTAL ADR. GOOD BAD 

5 047776 777777 000000 

5 047775 777777 000000 

5 017777 777777 000000 



BANK WITH PAT. 
2 
2 

2 



During test 1 address 100 in bank 3 was found to be 
in error. From the example, it can be seen that bit 11 
was dropped. Bit 8 was dropped during test 2 in the 
same address, and also during test 3. Bit 17 was picked 
up at location 3000 in bank 1 during the sliding 1 test. 
Three consecutive addresses in bank 2 were in error during 
test 5. The test was reading in the reverse direction 
at the time, because the addresses are printed in de- 
scending order. Also, when checking rest of memory, 
location 17777 in bank was found to be incorrect. 

After each print-out the program continues with the 
next memory location to test. 

ACS may be raised, during an error print-out, to 
halt the program after print-out is completed. Press 
CONTINUE to resume the test in progress, or to execute 
new ACS settings made. 

ACS 1 may be raised any time to inhibit all error 
print-outs (section 8.2.2). 

ACS 2 on a 1 will cause the TTY BELL to ring on 
each error. Print-outs will be inhibited (section 8.2.3). 

ACS 10 may be raised, during print-out, if the 
operator wishes to test selected areas of memory, or 
if certain addresses are to be suppressed. See section 

8.2.6o 
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7. Restrictions 

7.1 Starting Restrictions 

Start from location 100 of the memory bank con- 
taining the program. 

7.2 Operating Restrictions 

Don't use the STOP key to halt the program. Place 
ACS on a 1 . 

8. Miscellaneous 
8.1 Execution Time 

The time required to test one 8K bank with all 5 
tests is approximately 2 1/2 minutes. 

8-2 Applications 

For operating convenience., and as an aid to trouble- 
shooting, each ACS is assigned a unique function. The 
ACS assignments and their effect on the program are de- 
scribed below. Please note that it is important that 
the program should be halted before changing the ACS, 
unless otherwise specified in the descriptions below. 
Otherwise, the program may be destroyed. Halting the 
program with ACS is preferred, rather than with the 
STOP key. Using the STOP key may result in a halt while 
the program is in the process of relocating, which is 
disasterous. 

8.2.1 Halt After Test or Error - ACS 

Raising ACS at any time while the program is 
running will cause a halt after the current test is com- 
pleted. The PC will = 2064, ACS settings may then be changed 
if desired. Press CONTINUE to recover. If no ACS changes, 
the program will resume the test which was interrupted. 
If ACS changes were made, the new settings are stored, 
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Raising ACS during an error type-out will cause 

a halt at the same location mentioned above. Proceed 

exactly as described in the above paragraph. 

8.1.2 Inhibit Error Typeout - ACS 1 

Raising ACS 1 causes all error typeouts to be in- 
hibited. All other message typeouts are not inhibited. 
ACS 1 may be raised while the program is running. 

8.1.3 Bell on Error - ACS 2 

ACS 2 on a 1 causes the program to ring the TTY 
BELL whenever an error occurs. This is convenient 
when testing with power supply margins. ACS 2 has pre- 
cedence over ACS 1 if both should happen to be up. ACS 2 
may be raised while the program is running. 

8.2.4 Test Selection - ACS 3 through 7 

Any one, or any combination of tests may be executed 
by raising any one or any combination of ACS 3 though 7. 
ACS 3 specifies test 1; ACS 4, test 2; ACS 5, test 3; 
ACS 6, test 4; ACS 7, test 5. The test specified by the 
most significant ACS will be executed first. 

If all five ACS are down, all five tests are executed 
in order starting with test 1. 

Program relocation is not effected, regardless of the 
ACS settings. 

ACS 3 through 7 should not be changed while the pro- 
gram is running. 

3.2.5 Inhibit Program Relocation - ACS 9 

The program normally relocates automatically as 
indicated by MB indicators 3,4 and 5. To retain the 
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program in its current 4K field, raise ACS 9 at any 

time. 
8.2.6 Request Keyboard Input - ACS 10 

ACS 10, when up, indicates to the program that the 
operator wishes to select one test, along with one or 
more addresses to be suppressed, and that one or more 
blocks of addresses are to be tested, disregarding all 
other addresses. ACS 10 is recognized only immediately 
after an error print-out, restarting from 100, or after 
pressing CONTINUE after a halt with ACS 0. 

The program will print the following information, 
waiting for input from the keyboard after each line: 
TEST # - 
SUPPRESS - 
BLOCK #1 - 
BLOCK #2 - 

The program expects input information for each line. 
Typing only a carriage return indicates that the function 
represented by that line is not wanted. The next line 
will be printed. An explanation of each line follows. 
TEST # - Type the test number desired (l to 5). Any 
number less than 1 or greater than 5 is an error, and 
a ? will be printed, followed by TEST # - being printed 
again. If no particular test is wanted, type a carriage 
return only. The pattern used by the last test in prog- 
ress will be used. In the case of no tests being 
previously run, test 1 will be used. TEST # is used 
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only when one or more blocks are specified. If no 
blocks are selected,, TEST # is ignored. 
SUPPRESS - Error print-outs for one or more individual 
addresses., or a block of consecutive addresses may be 
suppressed. The addresses typed must be 5 digit octal 
numbers. Up to 256 addresses, individual or a block, 
may be suppressed. Any amount over 256 will be ignored 
by the program. 

Suppression of individual addresses is indicated 
by separating each 5 digit address with a colon, ter- 
minating the line with a carriage return after the last 
address or colon. A block is indicated by typing the 
first address of the block, and the last address of the 
block, separating the two by a comma. An automatic 
carriage return is provided after the second address is 
typed. The individual or block of addresses do not have 
to be typed in numerical order. 

Any input which differs from the above will result in 
a ? being printed, followed by SUPPRESS - being printed 
again. Typing a carriage return only indicates no 
addresses are to be suppressed. 

BLOCK #1 and BLOCK #2 - Any length block of consecutive 
addresses to be tested may be indicated in either BLOCK #1 
or BLOCK #2, or both. The block limits must not overlap 
the program or exceed the amount of memory available. If 
the limits of either block overlap the program a message 
will be printed giving the location of the program. The 
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current line will be re-printed, and the operator must 
then specify new limits. Indicate the block to be 
tested by typing the first address and last address 
of the block, separating the two 5 digit addresses 
with a comma. 

The program handles the blocks to be tested as if 
each were a separate memory bank. That is, if test 1 
were selected, each address within either block would 
contain its own value. If any other test were selected, 
BLOCK 1 would contain the pattern, and BLOCK 2 would con- 
tain an all l's pattern. The rest of memory outside of 
the block limits is ignored. Refer to section 5-2, 
Subroutine Abstracts, for a description of methods of 
testing, and patterns generated by each test. 

When two blocks are selected, their limits should 
not overlap when tests 2, 3, ^ or 5 are selected. BLOCK 
2 will always contain an all l's pattern with these tests, 
and error print-outs will occur if both block limits 
overlap. 

If only one block is selected, the pattern will be 
written in that block, and the rest of memory is ignored. 
A single block may be indicated after BLOCK 1 or BLOCK 2; 
one of the lines being left blank. 

If no blocks are to be tested type a carriage return 
after BLOCK #1 and BLOCK #2. The program will start over 
with test 1, or the test selected in ACS 3-7. 

If a block is selected, program relocation will not 

take place. 
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Press ohe RUBOUL key if a typing error was made. 

The routine will star-, over with "TES'j. -# -". 

If the pattern genera ed by test 5 is .,o be used, the 

operator may select one address, or a block of 20 addresses 

( 8) 
wioh no res uric. ion. Any amount over 20 addresses must be 

(8) 
m multiples of 20 ^ . This is necessary due uo the method of 

(8) 
generating and reading ohe patera. If a block of more than 20 

addresses is nob a multiple 20, invalid error pririo-outs occur 

indicating an error ai every fourth location within the block. 

This restriction applies to block #1 when two blocks are selected, 

or to a single block selected. 

Examples : 

Assume ohe program to be located in the lower 4K field of bank 1. 

A. TEST # - b 

SUPPRESS - O& ioc 

BLOCK #1 - 00077 ,01100 

BLOCK #2 - 

The pattern generated by test 5 will be written and checked 
OOIOO 

for error from 00077 -o 01100 of bank 0. The rest of memory will 

contain an all l's pattern, and will be ignored by the program since 
only one block is specified. All errors will oe printed. 

B. TEST # - 5 
SUPPRESS - 
BLOCK #1 - oolOO 
BLOCK #2 - -00077 ,01100 

The program will perform exactly as described in example A. 

C. TEST # - 3 
SUPPRESS 

BLOCK #1 - 3777,36000 
BLOCK #2 - 0000,16000 

The pattern generated by 'test 3 will be written and checked 
for error in the first block from 36000 to 37777. An all l's 
pattern will be written and checked for error in the second block 
from 00000 to 16000. 
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D. TEST # - 

SUPPRESS - 377777:36100:35000 
BLOCK #1 - 00000,16000 

block #2 - 36000,37777 

The pattern used by the last test in progress will 
be written in BLOCK 1, and an all l's pattern in BLOCK 2 
(note that the blocks are reversed from example C). 
Any error at the two addresses 36100 or 37777 will not 
be printed. Address 35000 is meaningless since it is 
located outside the test limits. 

E. TEST # - 4 

suppress - 36000,37777 

BLOCK #1 - 00000,16000 

block #2 - 36000,37777 

All errors encountered in BLOCK 2 will not be printed. 

F. TEST # - 8 
? 

TEST # - 1 
SUPPRESS - 036000 
? 

SUPPRESS - 36000,37777 

BLOCK #1 - 40100,40100 

BLOCK #2 - 20000,30100 

BLOCK #2 - LIMITS OVERLAP PROGRAM 

PROGRAM IS LOCATED IN LOWER 4K FIELD OF BANK 1 

BLOCK #2 - 30000,30100 
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Example F indicates program response to format 
errors. The first, TEST #, is self-explanatory , since 
there are only 5 tests to choose from. The second, 
SUPPRESS, was in error becuase the number exceeds 5 
digits. The program is assumed to be in the lower 
4K of bank 1 for these examples, and the first address 
selected for BLOCK 2 is within this area. The ex- 
ample shows the error message printed for BLOCK 2, 
followed by the operator's correction. 
G. TEST # - 2 

SUPPRESS - 10000,10377 
BLOCK #1 - 
BLOCK #2 - 

The program will not loop on test 2, but will re- 
start with test 1, or the test specified in ACS 3-7. 
TEST # is used only when one or more blocks are speci- 
fied. All of memory specified in ACS 14-17 will be 
tested. 

Any errors detected within the block indicated after 
SUPPRESS will not be printed, regardless of which test 
is running. 

To return to normal program operation type a carriage 
return after each of the four lines, or restart the pro- 
gram from 100. 
2o7 Program Relocation - ACS 11 and 12 

The operator may relocate the program to any 4K 
field in any memory bank by specifying the desired bank 

in ACS 16 and 17, and the 4K field in ACS 11. Use the following 
procedure. 
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a. Halt the program with ACS 

b. Place ACS 12 up to indicate a program 
relocation. 

c. Place ACS 11 up if an upper 4K field is 
wanted (10000 to 17111), or down for a 
lower 4K field (00000 to 07777). 

d. Place in ACS 16 and 17 the desired memory 
bank (00=bank 0; 01=bankl; 10=bank 2; 
ll=bank 3) • 

e. Press CONTINUE. The program will re- 
locate to the specified area, and a halt 
will occur in the present area with the 
PC = 

f . Place ACS 11 and 12 down, and reset ACS 
14 - 17 to the desired value. Any other 
ACS may be changed at this time. 

g. Press CONTINUE to execute the program in 
the new 4K area. 

The program will not automatically relocate again 
"until it is restarted from address 100. 

Before the relocation takes place the new area to be 
occupied is first checked to see if errors have been pre- 
viously detected. If an error was detected the message 
"ERROR IN SELECTED 4K" is printed. A halt then occurs 
with the PC » 2064. The operator may then change the 
destination, or press CONTINUE to ignore the warning, 
and relocate to that area. ' 
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8.2.8 Upper and Lower Core Memory Testing Limits - ACS 14 - 17 
ACS 14 and 15 specify to the program the first 
(or lowest order) memory bank to test, and ACS 16 and 
17 the last (or highest order) bank. A single bank 
may be tested by setting ACS 14 and 15 to equal ACS 
16 and 17. 

If the 8K bank under test does not contain the 
program relocation will not take place. However, testing 
more than 8K allows relocation to take place. 
9. Program Description 

The Extended Memory Address test is intended for 
use with PDP9's equipped with the extended memory option, 
but may be used on basic 8K PDP-9's as well. A total of 
five tests are executed by the program. Each test writes 
a unique pattern into core memory and then checks for 
error. The first test writes the value of each memory 
address into that address, with all available banks con- 
taining the pattern. The remaining four tests write 
their patterns into one 8K bank at a time, with rest of 
memory containing an "all ones" pattern. The patterns 
were chosen so as to detect word and digit driver errors, 
as well as shorted wires within any bank (see section 5.2). 

Control of the program is given to the operator by 
means of the ACS. The operator may halt the program, 
inhibit error print-outs, substitute the TTY BELL for 
error indication, halt after print-out, select any one or 
group of tests, inhibit program relocation, specify any 

single address or group of addresses to be suppressed, 
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any single address or up to two blocks of addresses 
for testing, relocate the program to any 4K area, 
and vary the number of 8K banks to test. See section 
8.2 for the ACS designations for the above functions. 

The program automatically relocates after performing 
all specified tests on the amount of core memory selected. 
10. Listing 
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700001 
700004 
700044 

700101 
7001 0? 
7001 1? 
700104 
7001 44 

700201 
70020? 
700204 
700?44 

700301 
7 031? 

700401 
70040? 
70040* 



/IOT DEFINITIONS TO KEEP MAORO-g HAPPY 

/ 

/ 

CLSF=700001 

CLOF=700004 

f-LOM-700044 

/ 

RSF=/00101 

HCF=700102 

RRB=:/00112 

RSA= 700104 

ivSH= 700144 

/ 

PSF=/00201 

PCF=700202 

PSA=700?04 

PSP=700?44 

/ 

KSF= 700301 

KRR=700312 

/ 

TSF =700401 

TCF=700402 

TLS=700406 

/ 



0P100 

0^100 
00101 
0C*102 
'/S0103 
0P104 

00105 
00106 
00107 
00110 
00111 

00112 
00113 
00114 
00115 
00116 
00117 

00120 
00121 
e 1 ? 2 
00123 
140124 

00125 
00126 



70000? 

700004 

20455 01 

04551 1 

144756 

100106 

000000 

2001 06 

505076 

044770 

044771 

760000 

044760 

0450?? 

045012 

045014 

202310 
044757 
202536 
5542537 
707704 
760000 
062537 



/PDP-9 
/ = 1 . 
/BANK 



/ 

HEGIM 



.TITLE XMADR9 
EXTENDED MEMORY ADDRESS TEST. HRI LOAD ADDRESS 
PLACE LOWFST RANK H TO TEST IN ACS 14-15; HIGHEST 
# TO TEST IN ACS 16-17. 

.FULL 

.LOC 100 



/75?*?5 IS AT ENO OF TABLE 
/CLEAR PROGRAM FLAGS 
/STORE EPC 



IOF 




CLOF 


LAC 


DLMT 


DAC 


KEMO+402 


D?M 


FLAGS 


JMS 


. + 1 







LAC 


. -1 


AND 


K60K 


DAC 


FLOAD 


DAC 


FLOADA 


LAW 




DAC 


ERURD+i 


DAC 


LAST 


DAC 


BLOC1 


DAC 


BL0C3 


LAC 


ERTBL 


DAC 


ER4R0 


LAC 


ST'-!L 


DAC 


SU°TRL 


LEM 




LAW 




DAC* 


SUPTBL 



/MASK BITS 3 AND 4 

/RAN* WHICH 1ST HAS PROGRAM 

/CURRENT BANK WITH PROGRAM 



/SETUP POINTERS 

/SUPPRESSION TABLE 



■. m -, n r j 



15 * r, f 







/RfTURM 


TO STOVFR A 






/RUNN I Ni' 




0i'l?7 


7 5 00 4 


/ 
STOVFR 


LAS 


at" 130 


4 4 7 7 3 




DAC MCWA 


0M.31 


[ 50'>047 




AMD K 4 


0--M32 


744?00 




S?A !CLL 


vH'133 


603354 




JMP FCOMV 



ACS CHANGES DURING 



/REAn ACS 

/PROGRAM CONTROL WORD - C H ANT,ES 

/MASK BIT 12 

/HO A FORCED MOVE IF NO SKIP 

/RFLOCATF 



.EJECT 



<MHDR9 



PAGE 



Hf 134 


707704 


01-135 


2 4 7 7 3 


k"*'136 


505044 


0P137 


044774 


0^140 


204773 


00141 


505045 


00142 


74?0?0 


3^143 


740001 


0P144 


3 4 50 4 3 


(■• i 4 5 


344774 


0^146 


741100 


00147 


603567 


30150 


204773 


•• , f'151 


505046 


Ai/152 


340320 


■! 1 5 3 


040?24 


00154 


707704 


015 5 


620224 



/NOW DETERMINE TEST LIMITS 
/ 



LEM 




LAC 


MCWA 


AND 


K3 


rue 


UL^NK 


LAC 


MCWA 


AND 


K14 


RTR 




CMA 




TAD 


Kl 


TAO 


ULRNK 


SPA 




JMP 


HEXED 


LAC 


MCWA 


AND 


K17 


Tad 


BASE 


DAC 


LOCN 


LEM 




JMP» 


LOCN 



AND TESTS 



/CONTROL WORD C(ACS) 

/MASK 16 AND 17 

/Ctljl 8NK) = HIGHEST HANK 



/"ASK 14 AND 15 



/?'S COMPLEMENT 

/SUBTRACT LOW RANK # FROM MICH # 

/I.OWfR RFTTFR RE LESS ThaN HIGHER 

'[T IS NOT. PRINT ERROR MESSAGE " 

/CONTROL WORD 

/MASK l.l. AND U.L. 

/ADn RASE * LIMITS AND JMP« ON 

/THE SUM 

/^XTrNjO OFF 

/DETI-kMlNE ADDRESS TEST LIMITS 



.EJECT 



iH .pRv) 



PAGE 







/RFTURN 


HERE 


AFTER S 


0i 156 


204773 


/ 

F.XTST 


LAC 


MCwA 


0t 1=>7 


505051 




A NO 


K2'*0 


0t<160 


740200 




S^A 




0H161 


6 2 312 




JMP 


KYmRD 


'Hi 162 


204773 




LAC 


MCWA 


'■'■ n 1 6 3 


505077 




AND 


K76K 


Rhl64 


74120M 




SNA 




0^165 


■ 600314 




JMP 


DOALL 


(' 1 6 6 


205075 


FXAMl 


LAC 


K40K 


?('167 


S04773 




AND 


MC'JA 


^ s' 1 7 


74020<* 




SZA 




0rl71 


600-^21 




JMP 


TST1 


1 7 2 


205073 


EXAM2 


LAC 


K20K 


01-M7 3 


504773 




AND 


MCWA 


vH 174 


740200 




SZA 




"i(-'l 75 


600461 




JMP 


TST2 


li' : 176 


2050 72 


EXAM3 


LAC 


K10K 


1' 1 7 7 


504773 




AND 


MCwA 


?i'200 


740900 




SZA 




0i'201 


600730 




JMP 


TST3 


0^202 


205071 


RXAM4 


LAC 


K4K 


c 2 3 


504773 




AND 


MCWA 


t< ? 4 


740200 




SZA 




0P205 


601151 




JMP 


TST4 


*0206 


205070 


FXAM5 


LAC 


K2K 


00 20 7 


504773 




AND 


MCWA 


0^21 


740200 




SZA 




2 1 1 


601323 




JMP 


TST5 


0!'212 


204474 




LAC 


END 


0"213 


04503' 




DAC 


PRNT 


00214 


707704 




LEM 




00215 


10 4 5 3 7 




JMS 


CRLF 


0P-216 


103010 




JMS 


PNXT 


00?17 


750004 




LAS 




0-220 


505065 




AND 


K4 00 


01-221 


740200 




SZA 




00222 


600127 




JMP 


STOVER 


00223 


603031 




JMP 


CMOVE 



UP ADDRESS LIMITS 

/CONTROL WORD 

/MASK PIT 10 

/KEYROARD INPUT IF NO SKIP 

/GO ACCEPT INPUT 

/PROGRAM CONTROL WORD (ACS) 

/K76K = 076000 

/NO SKIP = NO INDIVIDUAL TESTS 

/SETUP TO RUN ALL TESTS 

/K40K = 040000 

/MO SKIP = DO TEST 1 

/NO SKIP = DO TEST 2 

/NO SKIP = DO TEST 3 

/K4K = 004000 

/NO SKIP = DO TEST 4 

/NO SKIP = DO TEST 5 
/ENQ-PENO 



/CR,LF 
/PRINT END 



/DONF ALL TESTS, NOW GO DETERMINE 
/DEST'N FOR RELOCATING PROGRAM 



•EJECT 



M40R9 PAGE 5 


00224 


000 


0('225 


600245 


0i"226 


600251 


00 22 7 


600253 


</ 2 3 


600255 


00231 


740040 


00232 


600257 


00233 


600263 


0P234 


600265 


p 2 3 5 


74 00 4 


Pi' 23 6 


740040 


0f>237 


600267 


0t>240 


600273 


01/.241 


740040 


0t'242 


740040 


00243 


740040 


P ? 4 4 


600275 


00 24 5 


205103 


00246 


044775 


00247 


044776 


o 2 5 


600302 



LOCN 



/ 
AD01 








JMP 


AO01 


JMP 


AD02 


JMP 


AD0 3 


JMP 


AD04 


HIT 




JMP 


AD05 


JMP 


AD06 


JMP 


AD07 


HIT 




HLT 




JMP 


AD08 


JMP 


AO09 


HLT 




HLT 




HLT 




JMP 


AD1 


LAC 


K17S 


DAC 


LAST1 


DAC 


LAST2 


JMP 


LOWA 


.EJECT 



/TEST RANK TO 

/TEST RANK TO 1 

/TEST RANK TO 2 

/TEST RANK TO 3 

/SHOULD NEVER GET HEPE 

/TEST BANK 1 TO 1 

/TEST BANK 1 TO 2 

/TEST RANK 1 TO 3 

/SHOULD NEVER GET TO HERE, 

/OR HERE, 

/TEST RANK 2 TO 2 

/TEST BANK 2 TO 3 

/SHOULD NEVER GET HE D F , 

/OR WfR£ 
/OR MFRE 

/TEST BANK 3 TO 3 

/*:I7$ = 17777 
/U.L. FOR BANK 

/SETUP L.L. TO = 8ANK 



^M NDR9 



PAGE 



0e25l 
0<"?S? 


20,51 5,4 
6 00 2 4 6 


/ 
400? 


LAC K37S 
JMP AD '1 + 1 


0t-?5 3 
? 5 4 


205105 
600246 


/ 

AD03 

/ 

4004 

/ 

AO05 

/ 

AO06 

/ 

AD07 

/ 

AD08 


LAC K5 7S 
JMP AO01+1 


0C'255 
0"256 


2051 06 
600246 


LAC K77S 
JMP AO01+1 


01-257 
00260 
2 6 1 
00262 


2051.04 
044775 
044776 
600310 


LAC K37S 
OAC LAST1 
OAC LAST? 
JMP LOWB 


00263 
«0264 


'05105 
600260 


LAC K57S 
JMP AO05+1 


00265 
550266 


205106 
600260 


LAC K77S 
JMP AD05+1 


00267 
0V270 
00271 
01-27 2 


205105 
044775 
044776 
60031? 


LAC K57S 
OAC LAST1 
OAC LAST2 
JMP LOWC 


00273 
2 7 4 


205106 
600270 


/ 

AD09 

/ 

AD10 

/ 
LOWA 


LAC K77S 
JMP AD08+1 


0^275 
00276 
P0277 
0^300 
00301 


2051 06 
044775 
044776 

205076 
60 3 3 


LAC K77S 
nAC LAST1 
OAC LAST2 
LAC K60K 
JMP LOWA+1 


0P302 
00303 
00304 

0f'305 
00306 
00307 


205042 
045001 
045002 
345103 
044777 
600156 


LAC K0 
DAC FIRST1 
OAC FIRST2 
TAO K17S 
OAC LSTLOC 
JMP EXTST 


00310 
550311 


205073 
600303 


/ 

LOWB 

/ 
LOWC 


LAC K20K 
JMP LOWA+1 


00312 
00313 


205075 
600303 


LAC K41K 
JMP LOWA+1 



/K37S - 37777; U.L. FOP RANK 1 

/K57S : 57777; U.L. FOR BANK 2 

/K77S = 77777; U.L. FOR RANK 3 

/K37S = 37777; U.L. FOP RANK 1 
/U.L. (UPPER LIMIT) TO TEST 

/SETUP L.L. TO s BANK 1 

/K57S = 57777; U.L. FOR RANK 2 

/K77S = 77777; U.L. FOP BANK 3 

/K57S = S7777; U.L. FOR BANK 2 
/U.L. TO TEST 

/SETUP L.L. TO = BANK 2 

/K77S = 77777; U.L. FOP RANK 3 

/K77S = 77777; U.L. FOP RANK 3 



/L.L. = BANK 3 ALSO 
/STORE AND EXIT 

/RANK 



/ADO 17777 

/EXIT AND START TESTING 

/BANKl 

/RANK 2 



.EJECT 



\'M.sQR9 



PAGE 



0M314 


204773 


00315 


245077 


0<"316 


4 4 7 7 3 


0H317 


600321 


0H320 


■ 000?25 



0^321 
91(7322 

00323 

00324 

00325 

00326 

00327 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

01-337 

00340 

00341 

00342 

00343 

00344 

3 4 5 

01*346 

00347 

350 

0*351 

00352 

00353 

00354 

00355 

00356 

00357 

510360 



102035 

760261 

04 5 3 

205001 

045000 

101674 

777776 

045004 

777775 

045005 

70770? 

205000 

065000 

445004 

600336 

777776 

045004 

445005 

600334 

205000 

544777 

600351 

445000 

600331 

760000 

545012 

741000 

603775 

445000 

101636 

101674 

600331 



/SETUP TO RUN ALL TFSTS 

/ 

HOALL LAC MCWA 

XOR K76K 

DAC MCWA 

JMP TST1 
/ 

PASF LOCN + 1 
/ 

/w«, S , T , *" EACH LOn * T I°N WILL CONTAIN ITS OWN 

/THE PAT™!" M ' M0RY SPFC ' FI " WI ' L CONTAIN 
/ 



/CONTROL WORD (ACS) 
/SET ALL TEST SWITCHES 

/START TEST 1 



TST1 



WBLKl 



WL0P1 



JMS WRT1S 
LAW 261 
DAC TNUM 
LAC EIRSTl 
OAC MEMAOR 
JMS CBANK 
LAW -2 
OAC RPETE 
LAW -3 
OAC WRCNT 
EEM 

LAC MEMADR 
OAC» MEMAOR 
IS? RPETE 
JMP . -1. 
LAW -2 
DAC RPETE 
IS? WRCNT 
JMP WLOPl 
LAC MEMADR 
SAO LSTLOC 
JMP .+3 
IS? MEMAOR 
JMP WLOPl-3 
LAW 

SAO 8L0C1 
SKP 

JMP BLKA1 
IS? MEMAOR 
JMS NXTBNK 
JMS CBANK 
JMP WLOPl-3 



/WRITE 1'S INTO ALL OE MEMORY 

/TEST NUMBER 

/EIRSTl = C(ACS 14,15) 

/ADR. COUNTER 

/SEE IE TESTED BANK HAS PROGRAM 

/DELAY COUNTER 

/COUNTS 3 TIMES EOR EACH ADORERS 
/EXTEND ON 

/WRITE C(MEMAOR) INTO SAME ADORESS 
/DELAY 6 US " 

/RESTORE COUNT 



/TOTAL 17 US BETWEEN WRITES 

/LSTLOC = LAST LOC. OE ONE BANK 

/INCREMENT ADDRESS COUNT 
/WRITE IN NEXT 

/NO PLOCK IF = LAW 

/SETUP FOR BLOCK 2 
/INCREMENT ADDRESS COUNT 
/SETUP EOR NEXT BANK 



.EJECT 



PAGE 



■ H-3 61 


77777ft 


0i\362 


04*5006 


i^p*36?; 


505001 


0C364 


045000 


0f365 


101674 


0^366 


777754 


0367 


045004 


f 3 7 PI 


70770? 


0H371 


205000 


0i>372 


045007 


00373 


225000 


H i' 3 7 4 


545000 


00375 


741 000 


0^376 


102100 


P 3 7 7 


4451*04. 


(-1 4 


600373 


00 4 01 


205000 


V <■'■ 4 2 


544777 


3 4 3 


600406 


00404 


445000 


0i'405 


600366 


1/ 4 6 


760000 


4 7 


545012 


'•1 410 


741000 


00411 ' 


604016 


00412 


445000 


0- 4 1 3 


101636 


n 4 1 4 


101674 


00415 


600366 


0^416 


600422 


417 


445006 


00420 


600363 


4 21 


600172 



/READ Ai»D CHFCK FOR FRROR. READ FROM LO RANK 
/TO HI RANK AND THEN DECREMENT FROM HI TO LO. 
/REPEAT THf SEQUfNCE TWICE BEFORE FINISHING. 
/ 
PEAD1 



RLOP1 



LOOPl 



LAW 


-2 


rue 


LOOPT 


LAC 


FIRST1 


rue 


MEMADR 


JMS 


CRANK 


LAW 


-24 


DAC 


RPFTE 


FEM 




LAC 


MEMADR 


nAC 


PATR 


LAC* 


» MFMAOR 


sad 


MEMADR 


SKP 




JMS 


ERROR 


IS? 


RPFTE 


JMP 


RL0P1+5 


LAC 


MEMADR 


SAD 


LSTLOC 


JMP 


.+3 


IS? 


MEMADR 


JMP 


RLOP1 


LAW 




SAO 


BLOC1 


SKP 




JMP 


RLKB1 


IS? 


MEMADR 


JMS 


NXTBNK 


JMS 


CRANK 


JMP 


RLOP1 


JMP 


RBAKl 


IS? 


LOOPT 


JMP 


REA01+2 


JMP 


EXAM2 


.EJECT 



/COUNT U OF TIMES READ BACKWARD 
/FIRST 1 = C(ACS 14,15) 
/ADDRESS COUNTER 
/SEF IF TESTED BANK HAS PROGRAM 

/LOOP 5 TIMES ON EACH READ 
/FXTFNO ON 



/CHECK FOR ERROR 
/O.K. 

/PRINT INFO 
/LOOP 5 TIMES ON 



EACH ADDRESS 



/READ SAME ONE AGAIN 

/I STI OC = LAST ADR, OF TESTED RANK 
/SETUP FOR NEXT BANK 



/NO BLOCKS IF = LAW 

/SETUP FOR BLOCK 2 
/INCREMENT ADR. COUNTER 



/NOW READ FROM LAST TO FIRST 

/OONF IF 

/READ FORWARD ONCE MORE 

/ALL DONE. SEE IF TEST 2 HAS 

/BEEN SELECTED. 



XM1DR9 



PAGE 



0ci422 


204775 


00423 


044777 


0C4 24 


505076 


4 25 


045000 


1M26 


101 744 


0C'4?7 


70770? 


00430 


777754 


00431 


045004 


00432 


204777 


00433 


045007 


'304 34 


224777 


(.' 4 3 5 


544777 


4 3 6 


741000 


0^437 


102070 


00440 


445004 


0f441 


600434 


01. 442 


204777 


00443 


545000 


00444 


600451 


0^445 


777777 


4 4 6 


344777 


00447 


044777 


00450 


600430 


4 51 


760000 


0P452 


54501? 


0.0 453 


741000 


4 5 4 


604043 


00455 


10201? 


00456 


101744 


00457 


600 4 30 


00460 


600417 



/ 

/READ ALL OF MEMORY FROM HI 

/ 

PBAK1 LAC LAST1 

DAC LSTLOC 

AND K60K 



PAK1 



ERR1A 



DAC 


MEMADR 


JMS 


CKflAK 


Ft'M 




LAW 


-24 


DAC 


RPFfE 


LAC 


LSTLOC 


OAC 


PATR 


LAC 


» LSTLOC 


SAO 


LSTLOC 


SKP 




JMS 


ERRORA 


ISH 


RPETE 


JMP 


BAK1+4 


LAC 


LSTLOC 


SAO 


MEMADR 


JMP 


. +5 


LAW 


-1 


TAD 


LSTLOC 


OAC 


LSTLOC 


JMP 


BAKl 


LAW 




SAO 


BLOC1 


SKP 




JMP 


BLKC1 


JMS 


NXRAK 


JMS 


CKRAK 


JMP 


BAKl 


JMP 


LOOPl 



BANK TO LO BANK 

/VERY LAST LOC. IN HIGH RANK 
/ADO'RFSS' COUNT 

/FIRST LOC, IS LAST TESTFD 
/^EE IF RANK CONTAINS PROGRAM 
/FXTFMP ON 

/COUNTS 20 TIMES 



/REAO ONE 

/COMPARE 

/n. K . 

/ p RINT INFO 

/SKIP AFTER 20 READS 

/"OU^T 

/nONF ONE BANK IF EQUAL 



/DECREMENT ADDRESS COUNT 

/READ IN DESCENDING ORDER 

/NO PLOCKS IF r LAW 

/SETUP FOR BLOCK 2 

/SFTIIP FOR NFXT BANK 

/SEE IF NEXT HAS PROGRAM 

/PEAO 

/REAO FORWARDS AGAIN 



.EJECT 



\M. QRQ 



page: 10 







/ 

/TEST 2 


REVERSE THE 






/LOC. 


WILL = 17777! 






/AND READ THE PATTERN 






/AFTER 


TESTING ONE BAN 






/MEMORY 

/ 

TST2 


HAS NOT CHANGE 


4 61 


102035 


JMS WRT1S 


00462 


205001 




LAC EIRST1 


00 463 


045000 




DAC MEMADR 


00464 


045010 




DAC PATBNK 


00465 


3451513 




TAD K17S 


(■' 4 6 6 


045007 


LOP? 


DAC PATR 


00467 


101674 




JMS CBANK 


00470 


777776 




LAW -2 


4 7 1 


045004 




OAC RPETE 


00472 


777775 




LAW -3 


30473 


045005 




OAC WRCNT 


4 7 4 


707702 




EEM 


US'. 4 75 


205007 


WLOP? 


LAC PATR 


4 7 6 


065000 




OAC« MEMADR 


4 7 7 


445004 




IS? RPETE 


00500 


600477 




JMP .-1 


501 


777776 




LAW -2 


3 s-' 5 P) ? 


045004 




DAC RPETE 


00503 


445005 




IS? WRCNT 


30504 


600475 




JMP WL0P2 


0t 505 


205000 




LAC MEMAOR 


00506 


544777 




SAO LSTLOC 


■71 p 5 7 


600515 




JMP CKRA 


00510 


445000 




IS? MEMAOR 


00511 


777777 




LAW -1 


00512 


345007 




TAD PATR 


00513 


045007 




DAC PATR 


00514 


600472 ' 


/ 

CKBA 


JMP WL0P2-3 


01' 51 5 


760000 


LAW 


00516 


545012 




SAO BLOC1 


0051 7 


600534 




JMP RDFwO 


00520 


205012 




LAC 8L0C1 


00521 


045000 




DAC MEMADR 


00522 


740001 




CMA 


00523 


5051 03 




AND K17S 


00524 


045007 




DAC PATR 


00525 


205012 




LAC BLOCl 


00526 


505076 




AND K60K 


00527 


245007 




XOR PATR 


00530 


045007 




DAC PATR 


5 31 


205013 




LAC BLOC2 


00532 


044777 




DAC LSTLOC 


00533 


600543 




JMP R8LK2 



CONTENTS OF EACH ADDRESS. 
LOC. i = 17776, FTC. WRITE 
IN ONE RANK AT A TIME. 
K MAKE SURE REST OE 
D. 

/WRITE l'S INTO AL OF MEMORY 

/FIRSTl = FIRST BANK 

/ADDRESS COUNTER 

/PATRNK s RANK THAT HAS PATTERN 

/K17S = 017777 

/CONTAINS DATA TO BE WRUTF.N. 

/SEE IE TESTED BANK HAS PROGRAM 

/DELAY COUNTER 

/COUNTS 3 TIMES FOR EACH AOORESS 
/EXTEND ON 

/WRITE C(PATR) 
/DELAY 6 US 



/RESTORE COUNT 

/17 US TOTAL BETWEEN WRITES 

/LSTLOC = LAST LOC. OF ONE BANK 

/GO READ ANN CHECK THIS RANK 

/FROM LO TO HI 

/INCREMENT ADDRESS 

/-l 

/OECPEMEMT COUNT PATTERN 

/DO NEXT IN SEQUENCE 



/NO RLOCKS IE = LAW 
/NONE. READ FORWARD 

/1ST OE BLOCK 1 

/CLE«R BITS 0-4 
/COMPARE WORO 



/PUT BANK # ON PATR 
/LAST OF BLOCK 1 
/READ BLOCK 1 FORWARD 



.EJECT 



XMADR9 



PAGE 11 



00534 
0H535 
0H536 
0R537 
00540 
00541 
00542 
0<*543 
1» 5 4 4 
CI (15 4 5 
0R546 
00547 
0C-550 
00551 
00-552 
0('>5 5 3 
c 5 5 4 

(- 1 5 5 5 

0^556 
0C557 
H 5 6 
00561 
00562 
0P563 
00564 
0P565 
00566 
00567 
00570 
00571. 



76026? 
045003 
205010 
045000 
3451 03 
045007 
101674 
777776 
045004 
777775 
045005 
70770? 
225000 
545007 
741000 
102100 
445004 
600554 

777776 
045004 
445005 
600550 
205000 
544777 
60057? 
445000 
777777 
345007 
045007 
600545 



/ 

/READ 
/TO Mj 
/ 
ROFWO 



THE RANK WITH THE PATTERN FROM 
THEN HI TO LO, THEN REST OF MEMORY 



R8LK? 



FWD? 



LAW 


26? 


DAC 


TNUM 


LAC 


PATBNK 


DAC 


MEMAOR 


TAD 


K17S 


DAC 


PATR 


JMS 


C8ANK 


LAW 


-2 


DAC 


RPETE 


LAW 


-3 


DAC 


WRCNT 


EEM 




LACh 


» MEMAOR 


Sad 


PATR 


SKP 




JMS 


ERROR 


IS2 


RPETE 


JMP 


. -1 


LAW 


-2 


OAC 


RPETE 


IS? 


WRCNT 


JMP 


FWD2 


LAC 


MEMADR 


SAD 


LSTLOC 


JMP 


CKRB 


IS? 


MEMAOR 


LAW 


-1 


TAD 


PATR 


OAC 


PATR 


JMP 


FWD2-3 



/PATRNK r RANK WITH PATTERN 

/ADDRESS COUNTER 

/*17S = 017777 

/PATR = DATA FOR COMPARISON 

/SEE IF TESTED BANK HAS PROGRAM 

/DELAY COUNTER 

/COUNTS 3 TIMES FOR EAC H ADr. 

/FXTFND ON 

/REAn 

/COMPARE 
/O.K. 

/PRIMT INFO 
/DELAY 6 US 



/RESTORE COUNT 
/1 7 US TOTAL 



/LSTLOC = LAST LOC. IN TESTED BANK 
/READ THIS BANK HI Tn LO 
/INCREMENT ADDRESS 

/DERTREMENT COUNT PATTERN 

/DO NEXT IN SEQUENCE 



.EJECT 



\M.,nR9 page 


12 


i-"S 7 ? 


760000 


il I' 5 7 3 


545012 


p> "i => 7 -4 


600611 


0f575 


20501? 


00576 


045000 


0^577 


205013 


0P600 


044777 


0P601 


740001 


00602 


505103 


0('603 


045007 


0l>604 


205013 


00605 


505076 


00606 


245007 


(•' 6 7 


045007 


0P61 


600615 



CKRB 



LAN 
SAO 
JMH 
LAC 
DAC 
LAC 
DAC 
CMA 
AND 
DAC 
LAC 
AND 
XOR 
DAC 
JMP 



BLOCl 

RDRAK 

BLOCl 

MEMADR 

BL0C2 

LSTLOC 

K17S 

PATR 

BL0C2 

K60K 

PATR 

PATR 

BAK?-l 



/MO HLOCK IF = LAW 
/READ HI TO LO 

/lST OF BLOCK i 

/LAST OF BLOCK 1 

/CLFAR BITS 0-4 

/PUT BANK # ON PATR 

/READ BLOCK 1 8ACKWAR0 



.EJECT 



XMADR9 



PAGE 13 



/ 

/READ THE RANK WITH THE PATTERN FROM HI TO LO 

/AND THEN READ REST OF MEMRY. 

/ 



611 


205010 


PDRAK 


LAC PATBNK 




6 1 2 


0450017 




DAC PATR 


/PATR = DATA EOR COMPA^ON 


00613 


045000 




DAC MEMADR 


/MEMADR = LAST LOC. TO TEST 


614 


101744 




JMS CKRAK 


/SEE IF TEST BANK HAS PRDGRA*- 


0P615 


70770? 




EEM 


/FXTFND ON 


0M61 6 


777754 


RAK2 


LAW -24 




00617 


045004 




DAC RPETE 




00620 


224777 




LAC. LSTLOC 


/READ 


00621 


545007 




SAD PATR 


/COMPARE 


0*622 


741000 




SKP 


/O.K . 


00623 


102070 




JMS ERRORA 


/PRINT INFO 


00624 


445004 




IS? RPETE 




00625 


600620 




JMP ,-5 




00626 


204777 




LAC LSTLOC 




00627 


545000 




SAD MEMADR 


/DONF IF LSTLOC = LOWEST ADR. 


00630 


600636 




JMP CKRC 


/READ « TEST REST OF MFMORY 


00631 


445007 




IS? PATR 


/INCREMENT COUNT PATTERN 


00632 


777777 




LAW -1 




00633 


344777 




TAD LSTLOC 


/DECREMENT ADDRESS COUNT 


0P634 


044777 




DAC LSTLOC 




00635 


60061 6 


/ 

CKBC 


JMP BAK2 


/READ NEXT IN DESCENDING ORDE 


00636 


760000 


LAW 




00637 


54501? 




SAD BLOC1 




00640 


60064? 




JMP REST 




00641 


604073 




JMP BLKA2 
.EJECT 





\ M -1 D R ° 



PAGE 







/NOW READ REST OF MEM 






/EOUALS 


mm, then 






/ IN NEXT 

/ 

REST 


SEQUENTIAL B 


6 4 ? 


204775 


LAC 


LAST] 


/) f 6 4 3 


505076 




ANO 


K60K 


00644 


545001 




SAD 


FIRSTl 


.1 1 ' 6 4 5 


6001 76 




JMP 


EXAMS 


P 6 4 6 


205001 




LAC 


FIRSTl 


00647 


4 5 (i 


REST1 


OAC 


MEMADR 


0^650 


3451 03 




TAP 


K17S 


1 6 51 


044777 




PAC 


LSTLOC 


0('65? 


701146 




LAC 


KNXPT 


00653 


4 5011 




DAC 


EXIT 


'-' 6 5 4 


205000 




LAC 


MEMADR 


0<"655 


505076 




AND 


K6 0K 


0f"656 


545010 




SAD 


PATBNK 


0^657 


600*6? 




JMP 


. +3 


00660 


100670 




JMS 


REST? 


0i7661 


600654 




JMP 


. -5 


(' 6 6 2 


204777 




LAC 


LSTLOC 


00663 


544776 




SAD 


LA3T2 


0M664 


6001 76 




JMP 


EXAM3 


00665 


205010 




LAC 


PATBNK 


0^666 


345073 




TAO 


K2^K 


0C-667 


600647 




JMP 


RF.ST1 



ORY AND MAKE SURE IT 
WRITE THE ADDRESS PATTERN 
ANK. 

/SEE IF MORE THAN 1 BANK SFLECTED 

/MASK BITS 3 AND 4 

/ONLY 1 SELECTED IF FOUAL 

/SEF IF TEST 3 IS SELECTED 

/FIRSTl = 1ST LOCATION TO TEST 

/ADDRFSS COUNTER 

/K17S = 017777 

/LAST ADDRESS IN FIRST BANK 

/KNXPT = LOCATION NXTPAT 

/(EXIT) = NXTPAT 

/MASK BITS 3 AND 4 

/SEE IF BANK HAS ADDRESS PATTERN 

/REAP REST OF MEMORY 



/IS THE RANK THE HIGHEST SELECTED 
/YES. SEE IF TEST 3 IS SELECTED 
/EQUALS BANK WITH ADDRESS PATTERN 
/ADD 6K TO ADDRESS 



.EJECT 



<M4HR9 



PAGE 15 



00670 
00671 
00672 
00673 
00674 
00675 
00676 
006 7 7 

00-700 

00701 
00702 
00 703 
00704 
7 5 

00706 
00707 
710 
00711 
712 
00713 
00714 
00715 
00716 
00717 



00 7 20 
00721 
00722 
00723 
00724 
00725 
00726 
00727 



000000 

101674 

777777 

045007 

70770? 

225000 

545007 

741000 

102100 

205000 

54 4777 

600706 

445000 

600675 

760000 

54501? 

741000 

600716 

445000 

101636 

740000 

620670 

707704 

625011 



102035 
205010 
345073 
045010 
045000 
345103 
044777 
600466 



/ 

/REAO 

/ 

PEST? 



ALU 



ALL OF MEMORY FXCEPT BANK WITH ADDRESS PATTERN 



/ 

/SETUP 
/ 
NXTPAT 





JMS CRANK 

LAW -1 

OAC PATR 

EEM 

LAC» MEMADR 

SAO PATR 

SKP 

JMS ERROR 

LAC MEMADR 

SAO LSTLOC 

JMP .+3 

IS? MEMADR 

JMP ALL1 

LAW 

SAD 8L0C1 

SKP 

JMP .+5 

IS? MEMADR 

JMS NXT8NK 

NOP 

JMP» RFST2 

LEM 

JMP* EXIT 



/SEE IE TfSTED BANK MAS PROGRAM 

/mm 

/COMPARE CONSTANT 
/READ ONE 

/must = mm 

/O.K. 
/PRINT INFO 

/SEE IF REAO ONE BANK 

/YES 

/INCREMENT ADDRESS COUNT 



/NO RLOCKS IF = LAW 

/FXIT 

/INCREMENT ADDRESS 

/SETUP FOR NEXT RANK IN SEQUENCE 



/FXTFNO OFF. 

/EXIT TO NXTPAT, RTN3, RTN4, OR RTN5 



TO WRITE PATTERN IN NEXT BANK 



JMS WRT1S 
LAC PAT8NK 
TAD K20K 
OAC PATBNK 
OAC MEMADR 
TAO K17S 
OAC LSTLOC 
JMP L0P2 



/WRITE l'S INTO ALL OF MFMORY 
/CURRENT BANK WITH AOORESS PATTERN 
/ADO 8K TO IT 

/ADORFSS COUNTER 

/K17S = 017777 

/LAST LOCATION OF NEXT BANK 

/JMP BACK AND WRITE THE 

/AOORESS PATTERN IN NEXT BANK 



.EJECT 



«. M 1 R Q 



PAGE U 



/TfST 3. WRITE COMPLEMENT ADDRFSSFS INTO ONE 
/BANK AND 777777 IN ALL OThER RANKS. WRlE 
/IN *OTH DIRECTIONS (LO TO MI AMD MI TO LO) 
/READ IM BOTH DIRECTIONS BEFORE READING RFST 
/OF MEMORY 



*NO 



0t-7?;0 


102035 


/ 

TST3 


JMS WRT1S 


Pl i' 731 


?05001 




LAC FIRST1 


1" 7 3 2 


045000 




DAC MEMAOR 


'"'■733 


4 5 010 




DAC PATBNK 


A v 73 4 


3 4 510 3 




TAD K17S 


0f'735 


044777 




OAC LSTLOC 


00736 


101674 


L0P3 


JMS CBANK 


Plf'73 7 


777776 




LAW -2 


(1 P 7 4 


045004 




DAC RPFTE 


,11" 741 


777775 




LAW -3 


0074? 


045005 




DAC WRCNT 


7 4 3 


70770? 




EEM 


01/744 


205000 


WL0P3 


LAC MEMAOR 


Pi f 7 4 5 


740001 




CMA 


yi e-' 7 4 6 


65 




DAC* MEMADR 


00747 


445004 




IS? RPFTE 


C" 7 "5 


600747 




JMP .-1 


00751 


777776 




LAW -2 


0075? 


045004 




DAC RPFTE 


00 753 


445005 




TS? WRCNT 


0C-754 


600744 




JMP WL0P3 


v 7 5 5 


205000 




LAC MEMADR 


00756 


544777 




SAD LSTLOC 


00757 


60076? 




JMP .+3 


0C760 


445000 




IS? MEMADR 


00761 


600741 




JMP WLOP3-3 


00762 


760000 




LAW 


00763 


54501? 




SAO BLOCl 


00764 


741000 




SKP 


00765 


604124 




JMP RLKA3 


00766 


10077? 




JMS REST3 


00767 


101023 




JMS RFWD3 


00770 


10077? 




JMS REST3 


7 71 


6011 04 




JMP TST3A 



/WRITF l'S INTO ALL OF MEMORY 

/FIRST BANK TO TEST 

/ADDRFSS COUNTER 

/EQUALS RANK WITH ADDRESS PATTERN 

/AND 017777 

/LSTLOC = LAST LOC. OF TESTED BANK 

/SEF IF TESTED BANK HAS PROGRAM 

/DELAY COUNTER 

/COUNTS 3 TIMES FOR EACH ADDRESS 
/EXTFND ON 

/COMPLEMENT ADDRESS 
/WRITF INTO SAME ADDRESS 

/OFla.Y 6 US 

/18 US TOTAL BETWEEN WRITES 

/LSTLOC = LAST LOC. OF TFSTED RANK 

/INCREMENT ADDRESS COUNT 
/URITE IN NEXT 

/NO BLOCK IF - LAW 



/READ REST OF MEMORY 
/REAn LO TO HI FROM TESTED BANK 
/READ REST OF MEMORY AGAIN 
/WRITE HI TO LO IN TFSTED BANK 



.EJECT 



XMAflR9 



PAGE 17 







/SETUP 


TO READ REST OE 






/TEST 
/ 

REST3 


THE BANK WITH AD 


00772 


000000 





00773 


760263 




LAW 263 


0H774 


045003 




DAC TNUM 


00775 


204775 




LAC LASTl 


00776 


505076 




AND K60K 


P)c*777 


545001 




SAD FIrtSTI 


01 000 


62077? 


RTN3 


JMP» REST3 


01 001 


205001 




LAC EIRSTl 


01002 


04=5000 


REST3A 


DAC MEMADR 


01 003 


345103 




TAn K17S 


01 004 


044777 




DAC LSTLOC 


01 006 


2011.47 




LAC KRTN3 


01 006 


045011 




DAC EXIT 


01 007 


205000 




LAC MEMADR 


01 010 


505076 




AND K60K 


01 011 


545010 




SAD PATBNK 


01 012 


601015 




JMP .+3 


01013 


100670 




JMS REST2 


01014 


601007 




JMP ,-5 


01015 


204777 




LAC LSTLOC 


01 016 


544776 




SAD LAST2 


01017 


62077? 




JMPe REST3 


01020 


205010 




LAC PAT8NK 


01 021 


3 4 50 7 3 




TAD K20K 


01022 


60100? 




JMP REST3A 



MEMORY, THEM READ AND 
DRESS PATTFRM 



/TEST NUMBER 

/SEE IE MORE THAN 1 RANK SELECTED 

/MASK R[TS 3 AND 4 

/ONLY 1 SELECTED IF EQUAL 

/NO vORE TO READ 

/FIRSTi = 1ST LOCATION TO TEST 

/ADDRESS COUNTER 

/*17S = 017777 

/LAST ADDRESS IN FIRST BANK 

/KRTN3 s LOCATION RTN3 

/(EXIT) = RTN3 

/MASK BITS 3 AND 4 

/SEE IF BANK HAS ADDRESS P4TTERN 

/YES 

/NO, READ REST OF MEMORY 



/IS THF BANK THE HIGHEST SELECTEn 
/YES. EXIT 



/ADD 8K TO ADDRESS 



.EJECT 



vM «PR9 



PAGE 



/NOW RFAO THF BANK WITH ADDRESS PaTTFRN FROM 



/LO T HI , THEN HI TO 10 AND 
/OF MEMORY. 



11 0?3 


000000 


/ 

PFW03 





01 024 


?05010 




LAC PATBNK 


31 025 


045000 




DAC MEMADR 


1 ? 6 


34510.3 




TAD K17S 


01027 


044777 




DAC LSTLOC 


"M 3 


101674 




JMS C8ANK, 


010 31 


70770? 




FE* 


010 3 2 


205000 


FWD3 


LAC MEMADR 


0i 033 


740001 




CMA 


01 034 


045007 ■ 




DAC PATR 


010 3 5 


225000 




LAC» MFMADR 


01 3 6 


545007 




SAO PATR 


01 037 


741000 




SKP 


010 4 


102100 




JMS ERROR 


01 041 


205000 




LAC MEMADR 


310 4? 


544777 




SAO LSTLOC 


010 4 3 


601046 




JMP .+3 


010 4 4 


445000 




ISZ MEMADR 


01 045 


60103? 




JMP FWn3 


01 046 


760000 




LAW 


01 047 


54501? 




SAD RL0C1 


01 050 


601 05? 




JMP R8AK3 


01 051 


604145 




JMP 8LKC3 



THEN RFCHECK REST 



/BAmk WITH ADDRESS PATTERN 

/ADDRESS COUNTER 

/AKD 017777 

/LAST LOCATION TO TEST 

/SEE IF THE BANK HAS PROGRAM 

/EXTFND ON 



/DATA FOR COMPARISON 

/REAn ONE 

/COMPARE 

/O.K . 

/PRINT INFO 



/SEE IF DONE ONE BANK 
/READ BACKWARD 
/INCREMENT ADDRESS COUMT 
/PFAn NEXT IN SEQUENCE 

/NO BLOCK IF = LAW 
/PEAD BACKWARD 



.EJECT 



\M40R9 



PAGE 19 



01 052 


205010 


01 053 


045000 


01054 


101744 


01055 


70770? 


01056 


777770 


01057 


045004 


01 060 


204777 


01061 


7 4 01 


0106? 


045007 


01 063 


224777 


01064 


545007 


01 065 


741000 


01 066 


102070 


01067 


445004 


01 070 


601063 


01 071 


204777 


01 072 


545000 


01073 


601100 


01 074 


777777 


01 075 


344777 


01 076 


044777 


01 077 


601056 


01 100 


760000 


01 101 


54501? 


'11 102 


621023 


01 103 


60415? 



/NOW READ SAME PANK FROM HI TO LO, AND THEN 

/RfCHECK RFST OF MEMORY 

/ 



RBAK3 



RAK3 



LAC PATBNK 

DAC MEMAOR 

JMS CKRAK 

FEM 

LAW - 1 

OAC RPFTE 

LAC LSTLOC 

CMA 

OAC PATR 

LACo LSTLOC 

SAD PATR 

SKP 

JMS ERRORA 

IS? RPFTE 

JMP .-5 

LAC LSTLOC 

SAD MEMADR 

JMP ,+5 

LAW -1 

TAD LSTLOC 

DAC LSTLOC 

JMP BAK3 

LAW 

SAD BLOC1 

JMP» RFWD3 

JMP BLKD3 



/CURPf/NT BANK WITH ADDRESS PATTERN 
/MEMADR r LAST LOC. To »FST 
/SEE IF TESTED BANK HAS PROGRAM 
/FXTFND ON 



/ADDRESS COU^T 

/rtATa FOR COMPARISON 

/COMPARE 
/O.K. 
/PRINT INFO 

/OONF IF LOWEST ADDRESS 

/DECREMENT ADDRESS COUNT 

/READ NEXT IN DESCENDING ORDER 

/NO RLOCK IF = LAW 

/EXIT AND RECHFCK REST OF mEMORI 



.EJECT 



\ m -i n R 9 



PAGE 



?0 



,)1104 
01 105 
01 106 
01 107 
H110 
4 1111 
01 11? 
01113 
01114 
01 115 
01116 
01 H7 
01 1?0 
01 1?1 
01 122 
01 123 
01 124 
01 125 
'11 1?6 
01 127 
01 130 
01 131 



102035 
205010 
045000 
101744 
707702 
204777 
740001 
064777 
204777 
545000 
6011 23 
777777 
344777 
044777 
6011 11 
760000 
545012 
741000 
604124 
100772 
101023 
1 00772 



/ 






/TEST 3A, 


, WRITE SAMF 


/FROM HI 

/ 

TST3A 


TO 10. 


JMS 


WRT1S 




LAC 


PATBNK 




DAC 


MEMADR 




JMS 


CKHAK 




REM 




RAK3A 


LAC 
CMA 


LSTLOC 




DACo LSTLOC 




LAC 


LSTLOC 




SAD 


MEMADR 




JMP 


. +4 




LAW 


-1 




TAD 


LSTLOC 




OAC 


LSTLOC 




JMP 


BAK3A 




LAW 






SAO 


RL0C1 




SKP 






JMP 


BLKA3 




JMS 


REST3 




JMS 


RFWD3 




JMS 


RESTS 



pattern in same rank 



/WRITE l'S INTO ALL OF MFMORY 
/CURRENT BANK WITH ADDRESS PATTERN 
/MEMADR = LAST LOC. TO T^ST 
/SEE IF TESTED BANK HAS PROGRAM 

/OATA TO RE WRITTEN 

/COMPLFMFNT 

/°UT IN SAME ADDRESS 



/HONE IF 



LOWFST ADDRESS 



/DECREMENT ADDRESS COUNT 
/WRITE NEXT IN DESCENDING ORDER 
/NO BLOCK IF = LAW 



/SETUP TO CHECK REST OF MEMORY 
/GO READ LO TO HI ! HI TO LO 
/»ECHECK REST OF MEMORY THEN 
/SETUP TO WRITE THE PATTERN IN 
/NEXT SEQUENTIAL BANK 







/SETUP 

/ 

MXPT3 


FOR NEXT 


01 132 


205010 


LAC 


PATBNK 


01133 


345103 




TAn 


K17S 


1*1 134 


544775 




SAD 


LAST1 


01135 


600202 




JMP 


EXAM4 


01 136 


102035 




JMS 


WRT1S 


01 137 


205010 




LAC 


PATBNK 


01 140 


345073 




TAD 


K20K 


01 141 


045010 




DAC 


PAT8NK 


01 142 


045000 




DAC 


MEMADR 


01 143 


345103 




TAD 


K17S 


01 144 


044777 




DAC 


LSTLOC 


01 145 


600736 


/ 

KNXPT 


JMP 


L0P3 


01 146 


000720 


NXTPAT 


01 147 


001000 


KRTN3 


RTN3 


S 


01 150 


001215 


KRTN4 
/ 


RTN" 


[ 



/CURRENT BANK 

/ADD 17777 

/CHECK FOR LAST 

/ALL DONF. SEE IF TFST A SELECTFD 

/WRITE l'S INTO ALL OF MEMORY 

/AOD 8K TO CURRENT ADDRESS 
/RANK WITH ADR. PATTERN 
/ADDRESS COUNTFR 
/K17S = 017777 
/LAST LOC. TO WRITE 
/START NEW BANK 



/XMADR9 - TAPE 2 

/ 

/TEST 4. SLIDE A 1 THRU ONE BANK. REPEAT 

/IS TIMES PER BANK TO CHECK EACH BIT POSITION. 

/REST OF MEMORY WILL CONTAIN ALL l'S. CHECK 

/REST OF MEMORY AFTER EACH WRITE AND RFAD 

/IN THE BANK BEING TESTED. 



<MA0R9 



PAGE 21 



01 151 


760264 


/ 
TST4 


LAW 


264 


01 152 


045003 




OAC 


TNUM 


0115 3 


102035 




JMS 


WR71S 


01 154 


205001 




LAC 


FIRSTl 


01 155 


045000 




DAC 


MEMADR 


01 156 


4 5 010 




DAC 


PATBNK 


01 157 


3 4 510 3 




TAD 


K17S 


01 160 


044777 




rue 


LSTLOC 


01 161 


101674 


L0P4 


JMS 


C8ANK 


01 162 


205043 




1AC 


Kl 


01 163 


045033 




DAC 


RlTN 


01 164 


205033 




LAC 


BITN 


01 165 


045007 




rue 


PATR 


01 166 


744000 




CLL 




01 167 


707702 




FEM 




01 170 


205007 


WL0P4 


LAC 


PATR 


01 171 


065000 




DAC» MEMADR 


01 172 


74001K 




RAL 




01173 


045007 




OAC 


PATR 


01 174 


205000 




LAC 


MEMADR 


01 175 


544777 




SAO 


LSTLOC 


01 176 


601201 




JMP 


.+3 


01 177 


445000 




IS? 


MEMADR 


01 200 


601170 




JMP 


WL0P4 


01 201 


760000 




LAW 




01 202 


545012 




SAO 


BLOC1 


01 203 


741000 




SKP 




01 204 


604206 




JMP 


RLKA4 


01 205 


101211 




JMS 


REST4 


01 206 


101240 




JMS 


RFW04 


01 207 


101211 




JMS 


REST4 


01210 


601274 




JMP 


CK18B 



/TEST NUMBER 

/WRITE l'S INTO ALL OF MFMCIRY 

/1ST LOCATION TO TEST 

/ADOPESS COUNTER 

/BANK WITH BIT PATTERN; 

/AOD 017777 

/LAST LOC. OF TESTED RANK 

/^EF IF TESTEO BANK HAS PROGRAM 

/Kl = 1 

/RlTN SAVES CURRENT STARTING BIT POSITION 



/WRITE THE BIT 

/ROTiTE TO NEXT BIT POSITION 



/OONF ONE BANK IF EQUAL 

/INCRFMENT ADDRESS COUNT 
/WRITE IN NEXT IN SEQUENCE 

/NO BLOCK IF=LAW 



/SETUP TO READ REST OF MEMORY 
/READ LO TO HI FROM TESTED BANK 
/RFAn REST OF MEMORY AGAIN 
/SEE IF ALL 18 BITS HAVE BEEN TESTED 
/GO ON TO NEXT BANK IF SO. 



.EJECT 



'IPR*? 



PAGE ? ? 







/SfTUP TO 


REAO RFST TOR MF.MRY 






/THE BANK 

/ 

PEST4 


WITH BIT PATTERN. 


01 211 


0000 00 





01 21 2 


204775 




LAC LASTl 


'"1213 


505076 




AND K60K 


01 21 4 


545001 




SAO EIRSTl 


01 215 


621211 


RTN4 


JMP« RFST4 


01216 


205001 




LAC FIRST! 


0121 7 


045000 


REST4A 


OAC MEMADR 


01 220 


3451 03 




TAO K17S 


01 221 


044777 




OAC LSTLOC 


01 222 


201150 




LAC KRTN4 


01223 


045011 




OAC EXIT 


01 224 


205000 




LAC MEMADR 


"1 225 


505076 




AND K60K 


01 2?6 


5 4 5010 




SAO PATRNK 


01 227 


601232 




JMP .+3 


01 230 


100670 




JMS REST2 


01 231 


601224 




JMP . -s 


01 232 


204777 




LAC LSTLOC 


0123 3 


544776 




SAO LAST2 


01 234 


621211 




JMP» RFST4 


01235 


205010 




LAC PAT8NK 


01236 


345073 




TAO K20K 


01237 


601217 




JMP REST4A 



THFM READ ANO TEST 



/LAST LOC. TO TEST IN HI BANK 
/MASK RITS 3 AND 4 
/ONLY ONE BANK SELECTED IF EQUAL 
/NO MORE TO READ 

/1ST LOCATIOM TO TEST 
/ADDRESS COUNTER 
/ADO 017777 
/LAST LOC. TO TEST 
/KRTM4 = LOCATION RTN4 
/(EXIT) = RTN4 

/MASK RITS 3 AND 4 

/SEF IF BANK HAS BIT PATTERN 

/YES 

/READ REST OF MEMORY 



/IS THE RANK THE HIGHEST SELECTED 
/YES.. EXIT 

/ADD 8K TO ADDRESS 
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/NOW RFAO THE. BANK WITH BIT PATTERN FROM 
/LO TO HI. THEN RECHECK REST OF MFMORY 



01 240 
01 241 
01 242 
01243 
01 244 
01 245 
«11 246 
01 247 
01 250 
01 251 
01252 
01 253 
01254 
01 255 
01 256 
01257 
01 260 
01 261 
01 262 
01263 
01 264 
01 265 
01 266 
01 267 
01 270 
01271 
01 272 
01273 



000000 

205010 
045000 
3 4 510 3 
044777 
101674 
205033 
045007 
744000 
70770? 
225000 
545007 
741000 
102100 
205007 
741200 
74400? 
740010 
045007 
205000 
544777 
601270 
445000 
60125? 
760000 
54501? 
621240 
604227 



/ 

RFW04 



FWD4 








LAC 


PATSNK 


DAC 


MEMADR 


TAD 


K17S 


DAC 


LSTLOC 


JMS 


CRANK 


LAC 


BlTN 


DAC 


PATR 


CLL 




EEM 




LAC» MFMAOR 


SAO 


PATR 


SKP 




JMS 


ERROR 


LAC 


PATR 


SNA 




STL 




RAL 




DAC 


PATR 


LAC 


MEMADR 


SAD 


LSTLOC 


JMP 


. +3 


IS2 


MEMAOR 


JMP 


FW04 


LAW 




SAO 


RLOCt 


JMP« 


RFWD4 


JMP 


BLKC4 



/BANK WITH BIT PATTERN 

/ADORFSS COUNTER 

/ADO 017777 

/LAST LOCATION TO TEST 

/SEE IF THE BANK HAS PROGRAM 

/FIRST BjT POSITION 



/READ ONE 
/COMPARE 
/O.K. 
/PRINT INFO 

/PESTORE LINK IF AC=0 

/ROTATE TO NEXT BIT POSITION 

/DONE ONE BANK IF EQUAL 

/INCREMENT ADDRESS 
/REAn NEXT IN SEQUENCE 

/NO BLOCK IF = LAW 



.EJECT 



* H ■' R "5 



PAGE ? 4 



0" 


'274 


0" 


' 275 


fl" 


i 276 


0" 


i 277 


01 


300 


,i" 


301 


,i ■ 


302 


01 


3 03 


1 


304 


'.V 


30*5 


01 


306 


0' 


307 


1 


310 


^ i 


311 


01 


31 2 


01313 


01314 


t^ -t 


31 "5 


01 316 


01 317 


01 


320 


01 


321 


1 3 2 2 



705033 
5451 00 
601307 
744010 
045033 
205010 
045000 
3451 03 
044777 
101674 
6011 64 



205010 
34=11 03 
544775 
600206 
102035 
205010 
345073 
045010 
045000 
345103 
044777 
601161 



/ 

/SEE IF EACH bit position h a s meen tested 
/ 

CK1 8H 



/ 

/SE 

NXP 



T4 



LAC 


BITN 


SAD 


K400K 


JMP 


NXPT4 


RCL 




nAC 


BITN 


LAC 


PATBNK 


oac 


MEMADR 


TAP 


K17S 


DAC 


LSTLOC 


JMS 


C8ANK 


JMP 


WLDP4-4 


! NEXT RANK 


LAC 


PATBNK 


TAD 


K17S 


SAD 


LASTl 


JMP 


EXAM5 


JMS 


WRT1S 


LAC 


PATBNK 


TAD 


K20K 


DAC 


PATBNK 


DAC 


MEMADR 


TAD 


K17S 


DAC 


LSTLOC 


JMP 


LOP4 



PIT 



/OONF 18 IF = 400000 
/SETUP FOR NEXT BANK 
/SETUP FDR NEXT POSITION 

/HANK WITH BIT PATTERN 
/ADR. COUNT 

/LAST LOCATION TO TEST 
/SEF IF IT HAS PRORRAN 

/START SAME HANK 



WITH MEW HIT 



PiTTFPN 

/CURRENT BANK 

/ADD 017777 

/ALL BANK HAD BIT PATTERN IF EQUAL 

/ALL DONE SEE IF TEST 5 SELECTED 

/WRlTF l'S INTO ALL OF MEMORY 

/BANK JUST FINISHED 

/ADD 8K TO IT 

/ADDRESS COUNTER 
/ADD 017777 
/LAST LOC. TO TEST 
/START NEW BANK 



.EJECT 
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01 323 
01 324 
01325 
01326 
'01327 
01 330 
31331 
31332 
01333 
0133 4 
01 335 
01336 
01337 
01 340 
01341 
01 342 
01343 
01 344 
01345 
01 346 
01 347 
01 350 
01 351 
01352 
01353 
01 354 
01355 
01 356 
01 357 
01 360 
01361 
01362 
01 363 
01364 
01 365 
01 366 
01367 



102035 

760265 

045003 

205001 

045000 

04501H 

205034 

04503* 

101674 

707705 

205036 

045007 

777760 

045006 

777774 

045004 

205007 

744010 

5)45007 

751400 

740001 

065000 

445004 

6 1 3 5,0 ... 

205000 

544777 

60136? 

445000' 

445006 

601341 

601335 

760000 

54501? 

741000 

604266 

101431 

101402 



/ 

/TEST 5. WRITE A PATT 
/OF ^'S FOLLOWED BY 4 
/AND THEM HI TO LO IN 
/TFRN THE SAME WAY. C 
/EACH WRITE OR READ S 
/PATTERN AND REPFAT T 
/ 

TST5 JMS WRT1S 
LAW 265 
DAC TNljM 
LAC FIRSTl 
DAC MFMADR 
DAC PATRNK 
LAC PCW 
DAC CNTRL 
L0P5 JMS C8.ANK 
EEM 

LAC CNTRL 
DAC PATR 
LAW -20 
DAC LOOPT 
WL0P5 LAW -4 

DAC RPFTF 

LAC PATR 

RCL 

DAC PATR 

S2L!CLA 

CMA 

DAC» MFMADR 

IS? RPFTE 

JMP .-? 

LAC MEMADR 
SAD LSTLOC 
JMP . +<5 
IS? MEMADR 
IS? LOOPT 
JMP WL0P5 

JMP L0P5+2 

LAW 

SAD RLOC1 

SKP 

JMP BLKA5 

JMS RFWD5 

JMS REST5 

.EJECT 



ern consisting of 4 words 

words of l's. from lo to hi, 

each rank . rfad the pat- 
heck rfst of memory after 
eoufnce. compi fment the 
hf sequfncf, 

/write ps into all of memory 

/test number 

/1 st to test 

/address counter 

/bank with pattern 

/pattern control word = 036074 

/SAVF 

/SEE IF RANK HAS PATTERN 

/CNTRL=036074 OR 741700 



/COUNT 16 SHIFTS 
/COUNTS 4 WRITES 



/WRITE 0'S IF LINK ={-' 

/WRITE l'S 

/WRITE 

/WRlTF 4 TIMES BEFORE SKIP 

/DONF WRITING 1 BANK IF FOUAL 

/DONE 

/INCREMENT ADDRESS 

/16 SHIFTS IF SKIP 

/RESTORE LOOPT AND PATR 
/MO PLOCK IF = LAW 



/READ LO TO HI FROM TESTED BANK 
/READ REST OF MEMORY AGAIN 
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f 1 3 7(1 
'31 371 
01 372 
01373 
01 374 
01 375 
01 376 
01 377 
01 4 00 

•A 1 4 1 



01 402 
01403 
01 404 
01 405 
01 406 
01 407 
01 410 
01 411 
01412 
01413 
01414 

01415 
01 416 
01 417 
01 420 
01 421 
01 422 
01 423 
01 424 
01 425 
01 426 
01 427 
01 430 



20503^ 
545036 
601542 
045036 
205010 
045000 
345103 
044777 
601333 

001406 



000000 
204775 
505076 
545001 
621402 
205001 

045000 
345103 
044777 
201 401 
045011 
205000 
5 5 7 6 
545010 
601423 
100670 
601415 
204777 
544776 
621402 
205010 
345073 
601410 



/NOW WR[TE COMPLEMENT. 
/ 

LAC PCWA 
SA[) CNTRL 
JMP TST5A 
DAC CNTRL 
LAC PATBNK 
DAC MEMADR 
TAn K17S 
DAC LSTLOC 
JMP L0P5 
/ 

KRTN5 RTN5 
/ 
/ 

/READ REST OF MEMORY 
/ 
REST5 

LAC LASTl 
AND K60K 
SAO FIRSTl 
JMP» RFST5 
LAC FIRST1 
DAC MEMADR 
TAD K17S 
OAC LSTLOC 
LAC KRTN5 
OAC EXIT 
LAC MEMAOR 
AND K6v*K 
SAO PATBNK 
JMP .+3 
JMS REST2 
JMP .-5 
LAC LSTLOC 
SAD LAST2 
JMP« REST5 
LAC PATBNK 
TAD K20K 
JMP REST5A 



(4 WORDS 



1 'S, 4 WORDS = 0) 



RTN5 



REST5A 



/pCw« = 741700 

/ALREADY DONE COMPLEMENT 

/BANK WITH PATTERN 



/WRITE COMPLEMENT 



/LAST LOC IN HIGHEST SANK 

/MASK 4 AND 4 

/ONLY 1 BANK SELECTED IF EQUAL 

/NONF TO REAO 

/FIRST TO TEST 

/ADDRESS COUNTER 
/ADO 017777 
/LAST LOC. TO TEST 
/KRTN5 = LOCATION RTN5 



/SEE IF RANK HAS PATTERN 

/YES 

/READ REST OF MEMORY 



/IS THE BANK THE HIGHEST SELECTED 
/YFS. EXIT 

/ADO 8K TO AODRESS 

/AND SETUP FOR ANOTHER BANK 



.EJECT 
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/READ 


THE RANK WITH WORD 






/THEN 
/ 

RFWD5 


HI TO 10. AND THEN 


01 431 


000000 





01 432 


205010 




LAC PATBNK 


014 33 


045000 




OAC MEMADR 


31 434 


345103 




TAD K17S 


01 435 


044777 




DAC LSTLOC 


014 3 6 


101674 




JMS CRANK 


01 437 


205036 


RBLK5 


LAC CNTRL 


01 440 


045037 




DAC COMPR 


01 441 


777760 




LAW - 2 


01 442 


045006 




OAC LOOPT 


01 443 


777770 


FWD5 


LAW -10 


01 444 


045004 




DAC RPFTE 


01 44=5 


70770? 




EEM 


014 4 6 


205037 




LAC COMPR 


01 447 


7 4 4 010 




RCL 


014 5 


4 5 3 7 




DAC COMPR 


01 451 


751400 




SZL!CLA 


01 452 


740001 




CMA 


01 453 


045007 




DAC PATR 


01 454 


225000 




LAC» MEMADR 


01 455 


545007 




SAD PATR 


01 456 


741000 




SKP 


01 457 


102100 




JMS ERROR 


01 460 


445004 


ERR5 


IS2 RPFTE 


01 461 


601454 




JMP ,-5 


31 462 


205000 




LAC MEMADR 


01 463 


544777 




SAD LSTLOC 


01 464 


601471 




JMP .+5 


01 465 


445000 




IS? MEMADR 


01 466 


445006 




IS? LOOPT 


01 467 


601443 




JMP FWD5 


01 470 


601437 




JMP FWD5-4 


01 471 


760000 




LAW 


01 472 


54501? 




SAD BL0C1 


01 473 


601476 




JMP RBAK5 


01 474 


707704 




LEM 


01 475 


625011 


/ 


JMP* EXIT 






.EJECT 



PATTERN FROM 1.0 TO HI , 
RECHECK RFST OF MEMORY 



/RANK WITH WORD PATTERN 
/'DDRESS COUNTER 
/ADD 017777 

/SEE if BANK HAS PROGRAM 
/>~NTRL s 036074 OR 741700 



/COUNT 16 SHIFTS 
/READ 8 TIMES 



/REAn 0'S IF LINK = 

/REAO i'S 

/USED FOR COMPARISON 

/REAO 

/COMPARE 

/O.K 

/PRINT INFO 

/SKIP AFTER 8 REAPS 



/DONF l RANK IF EQUAL 

/INCREMENT ADDRESS COUNT 
/DONF 16 SHIFTS IF 

/RESTORE LOOPT AND COMPR 
/READ NEXT IN SEQUENCE 

/NO RLOCK IF = LAW 
/READ BACKWARD 

/C(FXIT) = BLKB5 OR BLKH5 
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0< 476 


01 477 


01 500 


01 50t 


? i 5 2 


<* i 5 3 


01 504 


ii 505 


i 5 6 


01 507 


•11 51 


01511 


d 51? 


01513 


01514 


01515 


01 516 


01517 


015?0 


0i5?l 


015?? 


01 5?3 


01 5?4 


01 5?5 


01 5?6 


01 527 


01 530 


01531 


01 53? 


01533 


015 3 4 


01 535 


01536 


01 537 


015 4 


0- 541 



205010 
04^001'i 
101744 
70770? 
?05036 
045037 
777760 
045006 
777770 
045004 
?05037 
744010 
045037 
750400 
740001 
4 5 7 
2?4777 
545007 
741000 
102070 
445004 
601516 
204777 
545000 
601535 
777777 
344777 
044777 
445006 
601506 
60150? 



760000 
54501? 
621431 
707704 
625011 



/RFA!) SAME BANK WITH WORD PATTFPN trom H] TO LO, 

/THEN RECHFCK REST OF MEMORY 

/ 



RRAK5 



BAK5 



/ 

CKRD 



lac patrnk 
oac mEmaor 
jms ckrak 

FEM 

LAC CNTRL 
DAC COMPR 
LAW -?0 
DAC LOOPT 
LAW -10 

rue rpete 

LAC COMPR 

RCL 

DAC COMPR 

SNL !CLA 

CMA 

OAC PATR 

LAC» LSTLOC 

SAO PATR 

SKP 

JMS ERRORA 

IS? RPETE 

JMP ,-5 

LAC LSTLOC 

SAO MEMADR 

JMP CKRO 

LAW -1 

TAD LSTLOC 

OAC LSTLOC 

IS^ LOOPT 

JMP RAK5 

JMP R8AK5+4 



LAW 

SAO BLOC1 

JMPo RTW05 

LEM 

JMP» EXIT 



/CURR£NT rank WITH WORO PATTER^ 

/FOUAlS LAST LOC. TO TEST 

/^EE IF TESTED BANK HAS PROGRAM 



/TNTRL 



036074 OR 741700 



/COUNT 16 SHIFTS 
/REAn fl TIMES 



/REAn 0'S IF LINK = 1 
/REAO l'S 
/COMPARE WORO 
/READ ONE 

/<">,K . 

/PRI'\'T INFO 

/SKIP AFTER 8 TIMES 

/CURRENT ADDRESS 

/DONF IF LOWEST ADDRTSS 



/DECREMENT ADDRESS COUNT 

/16 SHIFTS IF 

/RESTORE COMPR AND LOOPT 
/REAn NEXT IN DESCENDING OROFR 

/NO RLOCK IF = LAW 

/EXIT AND CHECK REST OF ME v ORY 



/C(EXIT) 



BLKC5 OR RLKJ5 



.EJECT 
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01 =54? 


102035 


015 4 3 


205 010 


01 544 


4 5000 


01545 


1017 4 4 


01 546 


205035 


01 547 


045036 


01 550 


205036 


01 551 


045037 


01 55? 


777760 


01553 


045006 


01 554 


70770? 


01555 


777754 


01556 


045004 


01 557 


205037 


01 560 


744010 


01 561 


045037 


01 562 


751400 


01563 


740001 


01 564 


064777 


01565 


445004 


01 566 


601564 


01567 


204777 


01 570 


545800 


01571 


601600 


01572 


777777 


01 573 


344777 


01 574 


044777 


01575 


445006 


01576 


601555 


01 577 


601550 


01 600 


760000 


01 601 


545012 


01 602 


741000 


01 603 


604326 


01 604 


101402 


01 605 


205035 


01 606 


545036 


01 607 


205034 


01 610 


045036 


01611 


101431 


01612 


101402 


01 613 


205010 


01 614 


045000 



/TEST 5A, 

/ 

TST5A 



WRITE IN SAME BANK FROM HI TO LO 



L0P5A 



RAK5A 



/ 
RST5 



JMS WRT1S 
LAC PATBNK 
DAC MEMADR 
JMS CKRAK 
LAC PCWA 
DAC CNTRL 
LAC CNTRL 
DAC COMPR 
LAW -20 
DAC LOOPT 
EEM 

LAW -24 
DAC RPETE 
LAC COMPR 
RCL 

D4C COMPR 
SZL!CL4 
CMA 

DAC* LSTLOC 
IS? RPFTE 
JMP .-? 
LAC LSTLOC 
SAD MEMADR 
JMP RST5 
LAW -1 
TAO LSTLOC 
DAC LSTLOC 
I Si? LOOPT 
JMP BAK5A 
JMP LOP5A 

LAW 

SAD RLOC1 
SKP 

JMP RLKF5 
JMS REST5 
LAC PCWA 
SAD CNTRL 
LAC PCW 
DAC CNTRL 
JMS RFWD5 
JMS REST5 
LAC PATBNK 
DAC MEMADR 



/WRITE l'S IN ALL OF MFMORY 
/CURRENT BANK WITH PATTERN 
/MFMADR = LAST LOC. TO TFST 
/SEE IF TESTED BANK MAS PROGRAM 
/PCWA = 741700 



/COIJMT 16 SHIFTS 



/WRITE 8 TIMES 



/WRITE 0'S IF LINK = 

/WRITE 1 'S 

/WRITE 

/SKIP AFTER 8 WRITES 

/CURRENT ADDRESS 
/DONF x RANK IF EQUAL 



/DECREMENT ADDRESS COUNT 
/16 SHIFTS IF 
/RESTORE 

/NO BLOCK IF = LAW 



/SETUP TO CHECK REST OF MEMORY 

/= 741700 CONTROL WORD 

/SEE IF IT'S THE PRESENT PATTEPN 

/YES. GET COMPLEMENT FOR READ FORWARD 

/GO REAO LO TO HI; HI TO LO 
/RECHECK REST OF MEMORY 

/RESTORE FIRST TO TEST 



.EJECT 



vH DR*? 



PAGE 



3d 



i" 1 61 5 
01616 

01617 
01 6?0 
01 6?1 



545036 
60162? 
101744 
6015 50 



/WRjTE COMPLEMENT PATTFRN FROM H] TO LO 

/ 

LAC PCWA 

SAD CNTRL 

.IMP NXPT5 /SETUP FOR NEXT BANK 

JMS CK'-UK. /RESTORE AODRESS COUNTERS 

JHP L0P5A /WRJTF COMPLEMENT RACKWAROS 



.EJECT 
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/SETUP TO WRITE NEXT BANK 



01 6?? 


205010 


/ 

NXPT5 


LAC PATBNK 


016?3 


345103 




TAn K17S 


016?4 


544775 




SAO LASTl 


016?5 


60021? 




JMP EXAM5+4 


01 6?6 


102035 




JMS WRT1S 


01 6?7 


205010 




LAC PAT9NK 


01 63i" 


34507.^ 




TAD K20K 


01 631 


045010 




DAC PATBNK 


01 632 


045000 




DAC MEMADR 


01 633 


34 510 3 




TAO Kl7S 


01 634 


044777 




DAC LSTLOC 


01 635 


601331 


/ 


JMP L0P5-2 






/ 

/ROUTINE 

/ 

NXTBNK 


TO DETERMINE NEXT 


01636 


000000 





01 637 


204777 




LAC LSTLOC 


01 640 


544776 




SAO LAST? 


01 641 


601655 




JMP THRU 


01 642 


205000 




LAC MEMADR 


01 643 


50507? 




AND K10K 


01 644 


740200 




S2A 


01 645 


601663 




JMP HIGH4 


01 646 


205000 


NOTIN 


LAC MEMADR 


01 647 


345103 




TAD K17S 


01650 


044777 




DAC LSTLOC 


01 651 


750004 




LAS 


01 652 


741100 




SPA 


01 653 


10206? 




JMS HALT 


01 654 


621636 


/ 

THRU 


JMP» NXTBNK 


01 655 


750004 


LAS 


01 656 


741100 




SPA 


01 657 


102062 




JMS HALT 


01 660 


441636 




IS* NXT8NK 


01661 


441636 




I Si? NXTBNK 


01 662 


621636 


/ 

HIGH4 


JMP« NXTBNK 


01 663 


205000 


LAC MEMADR 


01 664 


505076 




AND K60K 


01 665 


544771 




SAD FLOADA 


01 666 


741000 




SKP 


01 667 


601646 




JMP NOTIN 


01 670 


205000 




LAC MEMADR 


01 671 


34507? 




TAD K10K 


01 672 


045000 




DAC MEMADR 


01673 


601646 


/ 


JMP NOTIN 






.EJECT 



/CURRENT BANK 

/ADO 017777 

/EQUALS LAST LOC. OF HIGHEST BANK 

/DONE ALL TFSTS ON ALL MEMORY 
/GO SETUP TO RELOCATE 
/WRITE l'S IN ALL OF MEMORY 
/CURRENT BANK 
/ADO 8K TO GET NExT RAN'K 

/ADDRESS COUNT 

/ADD 017777 

/LAST LOC. IN NEXT BANK 

/START OVER WITH NEW BANK 



RANK TO TEST 



/LAST LOC. OF CURRENT RANK 
/LAST LOC. OF HIGHEST RANK 
/DONF ALL BANKS 

/1ST OF NEXT TO TEST 
/CLEAR ALL BUT BIT 5 

/IN HIGH 4K NOW 



/CHECK ACS0 FOR HALT 

/GO HALT 

/FXIT 



/CHECK ACS FOR HALT 

/GO HALT 

/NXTRNK+2 

/EXIT 



/CLEAR ALL BUT BITS 3,4 

/SEE IF TESTING THIS BANK 
/YES. . 



/MEMADR NOW r 1ST LOC. OF NEXT BANK 



KM^HRP 



PACE 3? 







/ROUTINE 


TO DETERMINE 






/PROGRAM 

/ 

CRANK 


, USED FOR WR 


•/1 1 6 7 4 


000000 







01 675 


205000 




LAC 


MEMADR 


016 7 6 . 


505076 




AND 


K60K 


01 677 


544771 




SAO 


FLOADA 


3i 700 


601707 




JMP 


CFIELD 


?1 701 . 


205000 




LAC 


MEMADR 


01 70? 


345103 




TAD 


K17S 


01 70? 


044777 




OAC 


LSTLOC 


01 704 


204775 




LAC 


LAST1 


01 705' 


044776 




OAC 


LAST2 


017 6 


621674 


/ 

CFIELD 


JMP< 


* CRANK 


01 707 , 


101710 


JMS 


. +1 


31 710 


000000 









01 711 


201710 




LAC 


. -1 


01712 


505072 




AND 


K10K 


01 713 


740200 




S2A 




01 714 


601727 




JMP 


HIAOJ 


01 715 


205000 




LAC 


MEMADR 


01 716 


245072 




XOR 


K10K 


01 717 


045000 




DAC 


MEMADR 


01 7?0 


245103 




XOR 


K17S 


01 721 


045007 




DAC 


PATR 


<?1 72? 


245072 




XOR 


K10K 


01 723 


4 4 7 7 7 




DAC 


LSTLOC 


01 724 


20477S 




LAC 


LAST1 


01 725 


044776 




DAC 


LAST2 


01 726 


621674 


/ 


JMP» CRANK 






/ 

/AOJUST CONSTANTS WHEN 


01727 


205000 


/ 

HIAOJ 


LAC 


MEMADR 


01 730 


245102 . 




XOR 


K7S 


01731 


04 4 777 




DAC 


LSTLOC 


01 732 


204775 




LAC 


LASTl 


01733 


505076 




AND 


K60K 


01 734 


544771 




SAD 


FLOADA 


01 735 


601741 




JMP 


. +4 


01 736 


204775 




LAC 


LASTl 


01 737 


044776 




DAC 


LAST2 


01 740 


621674 




JMP« CHANK 


01 741 


245102 




XOR 


K7S 


01 742 


044776 




DAC 


LAST2 


01 743 


621674 




JMP< 


> CRANK 



IF BANK l/MDFR TEST CONTAINS 
ITING AN REAniNG FORWARDS. 



/C<MEMADR) = BITS 3 AND 4 ONLY 

/FLOADA = BANK WITH PROG"*'i 
/ADJUST AODRESS CONSTANTS 

/ADD 017777 

/LAST ADDRESS OF TESTEn BANK 

/VERY LAST TO TEST 
/EXIT 

/STORE EPC 



/MASK ALL BUT RIT 5 
/IN LOWER 4K IF 
/ADJUST FOR UPPER 4K 



/FIRST TO TEST IS NOW 010000 
/INSTFAD OF 000000 



/ADD 17777 

/LAST LOC. IN TESTED RANK 

/VERY LAST TO TEST 
/EXIT 



PROGRAM IS IN HI 4K 

/FIRST ADDRESS TO TEST 

/LAST TO TEST = 007777 

/VERY LAST IN LAST BANK 

/MASK BITS 3.4 

/SEE IF PROGRAM IS IN HIGH RANK 

/YES 

/VERY LAST TO TEST = 017777 
/EXIT 

/VERY LAST = 007777 INSTEAD oE 017777 



•EJECT 



XMAQR9 



PAGF 33 



01 744 


000000 


01 745 


205000 


01746 


505076 


01 747 


544771 


01 750 


601756 


01 751 


345103 


017 5 2 


044777 


01 753 


205001 


01 754 


045002 


01 755 


6?1744 


01 756 


101757 


01 757 


000000 


01 760 


201757 


01 761 


505072 


01 762 


740200 


01 763 


602002 


01 764 


205000 


01 765 


045007 


01 766 


245072 


01 767 


045000 


01 770 


245102 


01771 


044777 


01772 


205001 


01 773 


544771 


01 774 


601777 


01 775 


045002 


01 776 


621744 


01 777 


245072 


09000 


04500? 


02001 


621744 



02002 
02003 
0?004 
02005 
09006 
09007 
09010 
02011 



205000 
245102 
044777 
245103 
045007 
205001 
045002 
621744 



/ROUTINE TO DETERMINE 

/PROGRAM, USED FOP WR 

/ 

CKBAK 

LAC MEMADR 
AND K60K 
SAD FLOADA 
JMP HILO 
TAO K17S 
DAC LSTLOC 
LAC FIRSTl 
DAC FIRST2 
JMP* CKBAK 



/ 

HILO 



JMS 



LAC 



'1 



.-1 



AND K10K 
S2A 

JMP ADJHI 
LAC MEMADR 
DAC PATR 
XOR K1/1K 
DAC MEMADR 
XOR K7S 
DAC LSTLOC 
LAC FIRSTl 
SAO FLOADA 
JMP .+3 
DAC FIRST2 

JMP* CK8AK 
XOR KlflK 
DAC FIRST2 
JMP« CKBAK 



/ 

/ 

/AOJUST WHEN PROGRAM IS 

/ 

AOJHI LAC MEMADR 
XOR K7S 
DAC LSTLOC 
XOR K17S 
DAC PATR 
LAC FIRSTl 
DAC FIRST2 
JMP* CKBAK 



IF BANK UNDER TEST CONTAINS 
ITING AND READING BACKWARDS, 



/LAST LOC. TO TEST 

/FLOADA : BANK WITH PROGRAM 
/ADJUST AnDRESS CONSTANTS 
/ADD 017777 
/1ST ADR. OF TESTED BANK 

/VERY LAST TO TEST IN LOW PANK 
/rXIT 

/STORE EPC 



/MASK ALL BUT BIT 5 

/NO SKIP IF IN HI 4K FIELD 

/ADJUST FOR UPPER 4K 



/MEMADR = 010000 

/ADO 007777 TO GET 017777 

/= 1ST LOC. TO TEST GOING PACKWARDS 

/FIRST LOC. OF LOWEST BANK 

/DOES LOWEST HAVF PROGRAM 

/YES 

/VERY LAST TO TEST EOUALS 1ST 

/LOCATION OF LOWEST RANK 

/EXIT 

/ADD 010000 

/VERY LAST TO TEST GOING BACKWARDS 

/rXIT 



IN HI 4K 



/ 



/ADO 007777 

/LAST LOC = 1ST TO TFST 

/FIRST LOC. OF LOWEST n>ANK 

/LAST TO TEST = 1ST LOC. IN LO 
/EXIT 



.EJECT 



vM '.f)RQ 



PAGET 



3 4 



H?012 
9 1 3 
9 014 
9 1 S 

09 016 

0901 7 

090?0 

0?021 
0"0?2 
09023 
v ? 4 
0"0?5 
9 0? 6 

9 2 7 
09030 
9 31 
09032 
9 3 3 
09034 



000000 
205 000 
54500? 
6020?7 
505076 
345074 
045000 
245103 
044777 
750004 
741100 
102062 
622012 

750004 
741100 
102062 
44201? 
44201? 
67201? 



/SETUP 
/ 

NXRAK 



TOP, NFXT RANK IN DESCENDING ORDER 



/ 
NOBAK 





LAC 

SAD 

JMP 

ano 

TAD 
DAC 
XOR 
DAC 
LAS 
SPA 
JMS 
JMP» 

LAS 
SPA 
JMS 
IS? 
IS? 
JMPo 



MEMAoR 

FIRST2 

MORAK 

K60K 

M20K 

MEMADR 

K17S 

LSTLOC 



HALT 
NXBAK 



HALT 
NXRAK 
NXRAK 
NXPAK 



/L*ST LOC. 
/=• LAST TO 
/ALL nONF 
/MASK 3 AND 4 
/SUBTRACT 8K 
/LAST TO TEST 
/ADO 017777 
/FIRST TO TEST 



OF CURRENT RANK 
TFST IN LOWEST RANK 



IN NEXT RANK 



IN NEXT BANK 



/CHFCK ACS 
/GO HALT 
/FXIT 



FOR HALT 



/CEHCK CS 
/GO HALT 



FOR HALT 



/NXBAK+2 
/FXIT TO 



NEXT ROUTINE 



.EJECT 



\ M A R 9 



PAGE 35 



Pi 'Pi 3 5 
05036 
05037 
05040 
05041 
05042 
05043 
? 4 4 
05045 
05046 
05047 
05050 
05051 
05052 
05053 
05054 
05055 
05056 
07057 
05060 
05061 



0506? 
05063 
05064 
05065 
05066 
05067 



000000 

205001 

045000 

101674 

70770? 

777777 

065000 

205000 

544777 

602051 

445000 

60204? 

445000 

101636 

10167*1 

602041 

205001 

045000 

345103 

044777 

622035 



000000 
740040 
750004 
544773 
6?206? 
600127 



/ROUT 

/ 

WRT1S 



PITE 



IME TO WRITE 1'S INTO ALL OE MEMORY 





LAC EIRST1 
DAC MEMAOR 
JMS CBANK 
EEM 

LAW -J. 
OAC« MFMADR 
LAC MEMADR 
SAO LSTLOC 
JMP . +,-< 
IS? MEMAOR 
JMP RITE 
IS? MFMADR 
JMS NXTBNK 
JMS C8ANK 
JMP RITE-1 
LAC ElRSTl 
DAC MEMADR 
TAO K17S 
DAC LSTLOC 
JMPe WRT1S 



/ 

/ 

/ALL A 

/PRESS 

/CHANT, 

/ 

HALT 



/SEE IE 1ST HAS PROGRAM 
/FXTFD ON 
/AC s 777777 
/WRITE. ONE 

/LSTI OC = LAST LOC. TO TFST 
/OONF ONE BANK 
/INCREMENT ADDRESS COUNT 
/WRITE IN NEXT 

/SETUP FOR NEXT BANK 
/SEE IE NEXT HAS PROGRAM 

/RESTORE 1ST BANK ADQRFSSES 
/FIRST TO TEST IN FIRST RANK 

/LAST TO TEST IN 1ST RANK 
/EXIT 



CS0 HALTS OCCUR HERE. ACS MAY BE CHANGED 

CONTINUE TO RESUME HALTEn TrST IF NO ACS' 
ES. PRESS CONTINUE TO EXFCUTE ANY ACS CHANGES 





HLT 

LAS 

SAD MCWA 

JMP* HALT 

JMP STOVER 



/READ ACS 

/SEE IE CHANGED FROM PREVIOUS 
/NO CHANGES, RESUME HALTFD TEST 
/nECODE NEW ACS 



.EJECT 



\ M in"' 



PAGE V<S 







/ERROR 


ROUTINI 


t. ACS0 


WILL 


CAUSE HALT AFTER 






/PRINT- 

/ 

FRRORA 


-OUT IF 


RAISED. 






v- "070 


000000 











09071 


707704 




LEM 








'■ 7 ? 


04475S 




DAC 


RAO 




/SAVE RAO DATA 


r 7 3 


?04777 




LAC 


LSTLOC 




/OCTAL AOR. 


v 7 4 


04"5040 




OAC 


OCAOR 




/SAVF 


".' 7 5 


20?070 




LAC 


FRRORA 




/C(ERRORA) 


i-^076 


0421 00 




DAC 


ERROR 






0'077 


60?10"5 




JMP 


ERROR* 1 ? 







(PC). FROM TEST ROUTINF 



.EJECT 



XM40R9 



PAGE 37 



0?100 


000000 


/ 

FRROR 





M?101 


707704 




LEM 


09102 


044755 




DAC BAD 


519103 


905000 




LAC MEMADR 


09104 


045040 




DAT OCAOR 


"IV105 


205007 




LAC PATR 


09106 


045041 




DAC GOOD 


09107 


777777 




LAW -1 


09H0 


045004 




DAC RPFTE 


0"111 


045005 




DAC WRCNT 


0911? 


204757 




LAr fRWRQ 


09U3 


542311 




SAD ENFRR 


09H 4 


7 41000 




SKP 


09H5 


602121 




JMP .+4 


09H6 


209310 




LAC FRT8L 


0'117 


044757 




DAC FRWRO 


091?0 


6021 30 




JMP SW? 


09121 


205040 




LAC OCADR 


09122 


■505067 




AND K70K 


09123 


545022 




SAD LAST 


09124 


6021 30 




JMP .+4 


09125 


045029 




DAC LAST 


09126 


064757 




DAC» EkWRD 


09127 


444757 




IS? ERWRD 


091 30 


750004 


SW? 


LAS 


09131 


742010 




RTL 


09132 


740100 




SMA 


09133 


602141 




JMP SW1 


09134 


760207 




LAW 207 


09135 


102254 




JMS PRFRR 


09136 


744000 


EREXIT 


CLL 


09137 


707702 




FEM 


0?140 


622100 




JMP» ERROR 


09141 


750004 


SW1 


LAS 


09142 


740010 




RAL 


09143 


741100 




SPA 


09144 


602136 


/ 

/SETUP 
/ 


JMP ERFXIT 






TO PRINT 


09145 


760000 


LAW 


09146 


562537 




SAD» SUPTBL 


09147 


602152 




JMP ,+3 


09150 


102232 




JMS CSUP 


09151 


602136 




JMP FRFXIT 


09152 


104537 




JMS CRLF 


09153 


205003 




LAC TNUM 


0?154 


102254 




JMS PRFRR 


09155 


777767 




LAW - l 1 


09156 


045006 




DAC LOnPT 


915 7 


102301 




JMS SPING 



/EXTEND OFF 
/SAVF BAD DATA 
/OCTAL ADDRESS 



/GOOD DATA 



/LAW -i PREVENTS SECOND TYPE-OUTS 
/OF S/SME ADDRESS 

/FRROP TABLE DONE IF EQUAL 



/RFSTORE POINTER 

/C(EPTPL)=ERWRO+l 

/CHFHK ACS 2 

/OCTAL ADR 

/MASK 3,4 AND 5 

/SAMF 4K AS LAST ERROR IF EQUAL 

/SAMF 

/STORE IN TABLE 
/INCREMENT POINTER 



/CHECK ACS 2 FOR BELL 



/RING BELL 



/RETURN TO CURRENT TEST 



/CHECK ACS 1 FOR INHIBIT PRINT 
/INHIBIT 



/IF 1ST LOC. OF SUPTRL=LAW, 
/MO ADR. SUPPRESSION WANTED 

/SFE IF THIS ERROR IS SUPPRESSFD 

/YES. RETURN TO CURRFNT TEST 

/CR, LF 

/NOT SUPPRESSED 

/PRINT TEST NO. 

/-9 

/COUNTS SPACES 

/SPACE 9 



.EJECT 



<M«PR9 PAGE 


3 8 


071 60 


205040 


5161 


4 4 5 3 7 


11 ? 1 6 2 


102261 


07163 


777771 


051 64 


045006 


09165 


102301 


05 166 


205041 


09167 


4 4 5 37 


' 1. 7 


102261 


05171 


777775 


717 7 


045006 


02173 


102301 


9 1 7 4 


204755 


05 175 • 


044537 


0-176 


105261 


0-177 


777773 


519200 


4 5 6 


0-201 


102301 


0-202 


205003 


0'203 


505064 


9 ? 4 


545055 


07205 


741000 


0-206 


602213 


05207 


205307 


09210 


045032 


02211 


103010 


'^ - 2 1 2 


602222 


0?213 


205010 


07214 


744010 


09215 


742010 


02216 


742010 


0?217 


740010 


09220 


345054 


0^221 


102254 


07222 


750004 


02223 


741100 


"2224 


102062 


05225 . 


750004 


05226 


505051 


05227 


740200 


05230 


602312 


0?231 


602136 



05232 
05233 
05234 
07235 
02236 
07237 
07240 
07241 
07242 
07243 
07244 
07245 



000000 
222537 
545040 
602245 
545016 
602250 
202537 
542540 
602250 
442537 
602233 
202536 



SW0 



LAD 


OCADR 


OAC 


CRI F 


JMS 


PRflCTL 


LAW 


-7 


DAC 


LOOPT 


JMS 


SPING 


LAC 


GOOD 


OAC 


CRLF 


JMS 


PROCTL 


LAW 


-3 


OAC 


LOOPT 


JMS 


SPING 


LAC 


BAf) 


mc 


CRLF 


JMS 


PROCTL 


LAW 


-5 


DAC 


LOOPT 


JMS 


SPING 


LAC 


TNUM 


AND 


K377 


SAD 


K261 


SKP 




JMP 


. +*; 


LAC 


LAL 


DAC 


PRNT 


JMS 


PNXT 


JMP 


SW0 


LAC 


PAT8NK 


rcl; 


1 



RTLi 



TAD K260 

JMS PRERR 

LAS 

SPA 

JMS HALT 

LAS 

AND K200 

S2A 

JMP KYRRO 

JMP ERFXIT 



/OCTAL ADDRESS 
/SAVF TEMPORARILY 
/PRINT THE ADDRESS 

/COUN'TS SPACES 

/SPACE 7 

/COMPARE WORD 

/SAVF 

/PRIMT THE GOOD 

/SPACE COUNTER 

/SPACE 3 

/DATA AS READ 

/SAVF 

/PRIMT THE RAD 

/SPACE COUNTER 
/SPACE 5 



/RANK WITH PATTERN 
PTL: RAL 



/PRIMT BANK NO. 

/CHEOKACS FOR HALT 
/GO HALT 



/CHECK FOR KEYBOARD INPUT 
/BIT 10 A 1. ACCEPT INPUT 
/RETURN TO CURRENT TEST 



/ 

/ROUTINE TO CHECK FOR SUPPRESSED ADDRESS 

/ 

CSUP 

LAC* SUPTBL 

SAD OCADR 

JMP TOP 

SAO LSTSUP 

JMP SPEXT 

LAC SUPTPL 

SAD ENTBL 

JMP SPEXT 

IS2 SUPTBL 

JMP CSOP+1 

TOP LAC STHL 



/COMPARE WITH CURRENT ADDRESS 

/SPPRESSED. 

/SEE IF DONE WITH LIST 



/SEE IF DONE WITH TABLE 
/YES 

/INCREMENT POINTER 
/COMPARE NEXT 
/RESTORE POINTER 



< M A R 9 



PAGE 39 



09?47 



04?5*7 
6 ? ? ? 3 ? 



DAC SUPTBL 
JMP» CSUP 



/FXfT 



.EJECT 



' M ^ n R 9 



'age: 40 



!»: 


■ 240 


0: 


'251 


0: 


'252 


?•: 


-2S3 


0' 


■■ ? 5 4 


0: 


:255 


" 2 5 6 


0' 


'257 


P' 


'260 



7 2 61 


07262 


07263 


07264 


f 265 


3 '- 2 6 6 


7 26 7 


07270 


37271 


07?7? 


07?73 


05274 


07275 


07276 


0?277 


07300 


^7301 


7 3 2 


07303 


'" 7304 


07305 


07306 


07307 


07310 


07311 



07312 
07313 
07314 



07315 
02316 
07317 



702536 
042537 
447737 
6 7 7 7 3 7 

00 00 

700406 
700401 
602756 
622254 



00000 

77777? 
045006 
204537 
744010 
742010 
044^37 
740010 
505066 
345054 
102254 
445006 
741000 
622261 
704537 
602265 

00 00 

760240 
102254 
445006 
602302 
672301 

004745 
004760 
004770 



703307 
707704 
145033 



202541 
045032 
104537 



/ 

SPF XT 



/ 

PRERR 



/ 

/PRINT 

/ 

PROCTl 



POSITN 



/ 

SPING 



/ 

LAL 

ERTBL 

ENERR 

/ 

/XMADR9 - 

/ 

/ROUTINES 

/ADDRESS 

/BEFORE R 

/ 

KYBRD 



LAC ST8L 
OAC SUPTBL 

is? csup 

JMP« CSUP 





TLS 
TSF 
JMP , 
JMP» 



/PRINT TEST OR BANK* 



-1. 
PRERR 



6 DIGIT OCTAL NOS. 





LAW 
DAT, 
LAC 

rcl; 



-6 

LOOPT 

CRLF 



RTL 



/DIGIT COUNTER 



/"ASK AC 15-17 
/MAKE ASCII 
/PRINT 1 
/DONE 6 WHEN SKIP 

/EXIT 

/POSITION NEXT NUMBER 



/PRINT SPACE 

/DONE SPACING IE SKIP 

/ONE MORE 

/EXIT 



DAC CRLF 

RAL 

AND K7 

TAD K260 

JMS PRERR 

IS? LOOPT 

SKP 

JMP» PROCTL 

LAC CRLF 

JMP POSITN 



LAW 240 
JMS PRERR 
IS? LOOPT 
JMP SPING+1 
JMP» SPING 

ALL 

ERWRD+1 

ERWRD+11 

TAPE 3 



TO ACCEPT KEYBOARD INPUT FOR TEST SELECTION! 
SUPPRESSION AND BLOCK TEST LIMITS. PLACE ACS10 DOWN 
E-INITIATING MAIN PROGRAM. 



CAE 

LEM 

D£m BITN 



/ 

/TYPE "TE 

/ 

TSTNO 



/clear flags 

/temp, storage For Input chars. 
st#" and wait for input 



LAC TSNX 
DAC PRMT 
JMS CRLF 



/CR,I F 



M4DR9 PAGE 


41 


05320 


103010 


5 3 2 1 


102766 


02322 


045033 


02323 


545064 


0'324 


602312 


0232? 


545052 


05326 


602350 


02327 


777517 


05330 


345033 


02331 


7401 00 


0-332 


602335 


05333 


103657 


05334 


602312 


05335 


205033 


05336 


740001 


05337 


345043 


05340 


345061 


05341 


74010M 


05342 


602345 


05343 


103657 


05344 


602312 


05345 


205033 


5 3 4 6 


045003 


05347 


602350 



TSTN 



JMS 


PNXT 


JMS 


KEYIN 


DAC 


BITN 


SAD 


K377 


JMP 


KYRRD 


SAD 


K215 


JMP 


SUPIN 


LAW 


-261 


TAD 


BITN 


SMA 




JMP 


. +3 


JMS 


WOTiS 


JMP 


KyHRD 


LAC 


RITN 


CMA 




TAD 


Kl 


TAD 


K265 


SMA 




JMP 


.+3 


JMS 


WOTlS 


JMP 


KYBRD 


LAC 


BITN 


DAC 


TNUM 


JMP 


SUPIN 



/PRINT "TEST#» 

/COT WAIT FOR INPUT 

/SAVF TTY CHAR. 

/IS INPUT A RUROUT 

/YES. START OVER 

/NO TEST WANTED IF A C.R. 

/LAST TEST PATTERN WILL RE USED 



TEST # IS <1 



/IF AC IS NEG 

/IT IS >1 

/print question mark 

/start over 



/2*S COMPLEMENT TEST # 

/ 

/IF AC IS NEG. , TEST * IS >5 

/THFRF ISN'T MORE THAN 5 TESTS 
/START OVER 



/WAIT FOR C.R. 



.EJECT 



', M a p R Q 



PAGE 4 9 







/DONE Wj 


[TH TEST*. NO 


">■ 3^0 


P02536 


SUPIN 


LAC STRL 


0?35l 


049537 




DAC SURTBL 


CV3S2 


? ? 5 3 fj 




LAC R0T8 


0' 353 


042527 




DAT ROTA 


i' >' 3 "5 4 


2?25?7 




LAC» ROTA 


0:-3 55 


045017 




DAC NROTA 


'-■ 3 "j 6 


76000P 




LAW 


0:-357 


062537 




OAC« SUPTBL 


0?360 


145021 




D2M AORCW 


0-361 


104537 




JMS CRLF 


02362 


20254? 




LAC SUPSX 


0?363 


04503? 




DAC PRNT 


0;-364 


103010 




JMS PNXT 



NOWOO AOR. SUPPRESSION 



'1ST LOCATION IN SUPRUSS TABLE 
/POINTER 



/SHIFT COUNTER 

/A LAW IN 1ST LOC. SAYS NO 
/ADDRESS TO BE SUPPRESSED 
/USED TO STORE 15 BIT ADDRESS 



/PRINT "SUPPRESS" 







/ACCEPT 


1ST ADDRESS AND 






/OP A COMMA 


0?365 


203577 


/ 

NXSUO 


LAC INSUP 


? 3 6 6 


045020 




DAC OVER 


? 3 6 7 


203600 




LAC SUPDN 


0?370 


4 5 011 




DAC EXIT 


0?371 


102766 




JMS KEYIN 


0?372 


102775 




JMS LEGAL 


0?373 


222527 




LAC» ROTA 


0?374 


045017 




DAC NROTA 


0?375 


205033 




LAC R-ITN 


0?376 


505066 




AND K7 


0?377 


045033 




DAC RITN 


0?400 


104416 




JMS GENADR 


0'401 


602365 


/ 

/RETURN 
/ 


JMP NXSUP 






HERE FROM GENADR 


0?40? 


205021 


LAC AORCW 


0?403 


062537 




DAC» SUPTBL 


0?404 


442537 




IS? SUPTBL 


0?405 


145021 




D2M AORCW 


02406 


102766 




JMS KEYIN 


0?407 


545064 




SAD K377 


02410 


602312 




JMP KYPRD 


02411 


545052 




SAD K215 


0?412 


602517 




JMP DNSUP 


02413 


545053 




SAD K254 


02414 


602451 




JMP SUP8LK 


02415 


545062 


CKCLN 


SAD K272 


02416 


741000 




SKP 


02417 


603006 




JMP QUERY 



THEN WAIT FOR A COLON 

/C( INSUP) = SUPIN 

/C( SUPDN) = DNSUP 

/WAIT FOR INPUT 
/CHECK VALIDITY 

/C(NROTA) = COUNT FOR LEFT SHIFTS 

/MASK 15-17 

/SAVT 

/START ASSEMBLING 1ST ADDRECS 

/GET NEXT INPUT 

AFTER 5 CHARS. REC'D. 

/FIRST ADDRESS 

/STORE IN 1ST LOC. OF TABLE 

/CLEAR 

/WAIT FOR A: , OR C.R. 
/CHECK FOR RUBOUT 
/START OVER WITH TEST « 
/CHECK FOR C.R. 

/CHECK FOR COMMA 

/A COMMA = SUPPRESS A BLOCK 

/CHECK FOR COLON 

/NONF OF THE ABOVE. 
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07470 


102766 


07471 


102775 


7 4 7 2 


222527 


7 4 2 3 


045017 


02424 


205033 


0-425 


505066 


07476 


4 5 3 3 


n 7 4 2 7 


104416 


0^430 


60 24 20 


07431 


205021 


0^432 


062537 


07433 


045016 


07434 


207537 


07435 


542540 


07436 


602443 


37437 


4 4 2 5 3 7 


0?440 


145021 


07441 


107766 


07442 


545052 


07443 


602517 


0?444 


602415 


07445 


102766 


09446 


545? -52 


7 4 4 7 


607517 


7 4 5 


6 3 6 



07451 
07452 
07453 
07454 
07455 
07456 
07457 
07460 
07461 



102766 
107775 
222527 
045017 
205033 
505066 
045033 
104416 
602451 



/ACCEPT 


INDIVIDUAL A00RESSFS 


/ 

SUPl 


JMS KFYIN 




JMS LEGAL 




LAC» ROTA 




PAC NRDTA 




LAC RITN 




ANfl K7 




OAC BITN 




JMS GENADR 




JMP SUPl 




LAC AO»CN 




DAC« SUPTBL 




DAC LSTSUP 




LAC SUPTBL 




SAD ENTBL 




JMP .+5 




IS? SUPTBL 




HHM ADRCW 




JMS KEYIN 




SAD K215 




JMP DNSUP 


/ 


JMP CKCLN 


JMS KEYIN 




SAD K215 




JMP ONSUP 


/ 

/ACCEPT 

/ 

SUP8LK 


JMP QUERY 


TWO INPUTS FOR A SUPP 


JMS KEYIN 




JMS LEGAL 




LAC* ROTA 




DAC NROTA 




LAC BITN 




AND K7 




DAC BITN 




JMS GENADR 




JMP SUPBLK 



/WAIT FOR INPUT 
/CHECK VALIDITY 

/COUNTS LEFT SHIFTS MADE 

/MAS* ACS 15-17 

/ASSEMBLE ADDRFSS 

/WAIT FOR NEXT CHAR. 

/COMPLETE ADDRESS 

/STORF in SUPPRESSION T A RLF 

/LSTSUP = LAST TO SUPPRESS 

/CHECK FOR 256 ADDRESSFS 
/WAIT FOR C.R. 
/INCREMENT POINTER 

/WAIT FOR COLON INPUT 
/DONE IF C. R. 

/IS IT REALLY A COLON 

/WAIT FOR C.R. 

/NOT A C.R. 

SUPPRESSED BLOCK 

/WAIT FOR INPUT 
/CHECK VALIDITY 

/COUNT LEFT SHIFTS 

/MASK ACS 15-17 

/ASSFMRLE ADDRESS 
/WAIT FOR NEXT 
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9 4 6 2 


205021 




LAC 


ADRCW 


9 4 6 3 


4 501 6 




nAC 


LSTSUP 


' 4 6 4 


202536 




I. AC 


STPL 


">' 465 


4?537 




DAC 


SUPTBL 


'- 4 6 6 


22 2 5 3 7 




LAC 


« SUPTBL 


9 4 6 7 


740001 




CMA 




d' 470 


345043 




TAO 


Kl 


09471 


345016 




TAD 


LSTSUP 


0.-47? 


74 0100 




SMA 




'- 4 7 3 


602502 




JMP 


SETSUP-3 


0'. 4 74 


222537 




LAC- 


» SUPTBL 


•; 4 7 5 


045006 




DAC 


LODPT 


0^476 


205016 




LAC 


LSTSUP 


1 :•• 4 7 7 


062537 




DAC< 


» SUPTBL 


Pi: 500 


205006 , 




LAC 


LOOPT 


3?501 


045016 




DAC 


LSTSUP 


09502 


222537 




LAC* SUPTBL 


09503 


545016 




SAD 


LSTSUP 


5 5 4 


6 2.517 




JMP 


DNSUP 


09 505 


202537 


SETSUP 


LAC 


SUPTBL 


9 506 


542540 




SAD 


ENTBL 


09507 


602 K 17 




JMP 


DNSUP 


02510 


222537 




LAC» SUPTBL 


0951 1 


345^43 




TAD 


Kl 


09512 


442537 




IS? 


SUPTBL 


09513 


062537 




DAC« 


> SUPTBL 


09 514 


545016 




SAD 


LSTSUP 


09515 


602517 




JMP 


DNSUP 


09516 


602505 


/ 

/RFSTORE 

/ 

DNSUP 


JMP 


SETSUP 






POINTERS BEFORE 


09517 


202536 


LAC 


STBL 


09520 


042537 




DAC 


SUPTBL 


09521 


202530 




LAC 


ROTB 


09522 


542527 




SAD 


ROTA 


09523 


602543 




JMP 


8LK1 


09524 


042527, 




DAC 


ROTA 


09525 


103657 




JMS 


WOTIS 


09526 


602350 


/ 
ROTA 


JMP 


SUPIN 


09527 


002531 


.+2 




09530 


002531 


ROT8 


.+1 




02531 


777763 




LAW 


-15 


19532 


777766 




LAW 


-1? 


02533 


777771 




LAW 


-7 


02534 


777774 




LAW 


-4 


09535 


777777 




LAW 


-1 



/COMPLETE ADDRESS 
/SAVE 

/setup table pointer 



/2'S COMP. 1ST ADDRESS 

/SUBTRACT 2ND ADDRESS 
/1ST IS > LAST IF SKIP 

/REVERSE THF TWO ADDRESSES 
/SAVF FIRST 

/LAST IS NOW FIRST 

/FIRST IS NOW LAST 

/ARE THEY EQUAL 
/YES 

/256 CHARS STORED. IGNORE ANY MORE 



/INCREMENT POINTFR 

/WAS LAST THE LAST TO SUPPRESS 
/YES 



ENTERING NEXT LINE 



/ROTP AND ROTA MUST PE EQUAL 



/RESTORE SHIFT COUNT POINTER 
/LAST ADDRESS WAS <5 CHARS 
/START OVER WITH SUPPRESS 

/= LOC. OF 1ST LAW 

/= LOC. OF 1ST LAW 

/ROTATE 12 LEFT FOR 1ST DIGIT 

/9 LFFT FOR 2ND 

/6 LFFT FOR 3RD 

/3 LFFT FOR 4TH 

/NONF FOR 5TH 



.EJECT 
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45 










05536 


005111 


STBL 


KENO+2 


/VALUE = LAST LOC. Of 


05537 


000000 


SUPTflL 









09540 


005510 


F.NT8L 


KENO+401 


/TABLF = 256 LOCS. (1 


05541 


004605 


TSNX 


TSM 






5 5 4 2 


004613 


SUPSX 

/ 

/INPUT 


SUPS 








ROUTINE FOR ADDRESS LIMITS OF BLOCK #1. 






/PRESS 

/ 

BLKl 


CR IF 


NO BLOCKS 


WANTED. 


05543 


70330? 


CAF 






09544 


145021 




OHM 


ADRCW 




05545 


760000 




LAW 






05546 


045012 




OAC 


BLOC1 




09547 


045013 




DAG 


BLOC2 




09550 


252527 




LAC 


» ROTA 




05551 


045017 




OAC 


MROTA 


/SHIFT COUNTER 


05552 


104537 


/ 

/TYPE • 
/ 
BLKM 


JMS 


CRLF 








•8L0CK#1" AND WAIT FOR INPUT 


05553 


203605 


LAC 


BLKSX 




5 55 4 


04503? 




DAC 


PRNT 




05555 


103010 




JMS 


PNXT 


/PRINT BLOCK #1 


05556 


203603 




LAC 


00NE2 


/C(D0NF2) * OBLK1 


05557 


045011 




DAC 


EXIT 




05560 


203601 




LAC 


N8LK 


/C(NRLK) = BLKl 


05561 


045020 




OAC 


OVER 




05562 


102766 


RLK1A 


JMS 


KEYIN 


/WAIT FOR INPUT 


05563 


102775 




JMS 


LEGAL 


/CHECK FOR LEGAL CHAR 


05564 


205033 




LAC 


BITN 


/INPUT CHAR. 


05565 


505066 




AND 


K7 


/MASK AC 15-17 


05566 


045033 




DAC 


BITN 




09567 


104416 




JMS 


GENADR 


/ASSFMBLE ADDRESS 


05570 


60256? 


/ 

/ENTER 
/ 


JMP 


BLK1A 








HERE AFTER FIRST 


ADDRESS RECEIVED 


05571 


205021 


LAC 


ADRCW 


/ASSEMBLED ADDRESS 


05572 


04501? 




OAC 


BLOC1 


/FIRST ADR. OF FIRST 


05573 


145021 




DHM 


ADRCW 


/CLEAR 


05574 


102766 




JMS 


KEYIN 


/WAIT FOR COMMA 


05575 


545053 




SAD 


K254 


/CHECK FOR COMMA 


05576 


741000 




SKP 




/O.K. 


05577 


603006 




JMP 


QUERY 


/PRINT QUERY MARK 


09600 


102766 


RLK1R 


JMS 


KEYIN 


/WAIT FOR INPUT 


09601 


102775 




JMS 


LEGAL 


/SEE IF IT'S LEGAL 


05 602 


205033 




LAC 


BITN 


/INPUT CHAR. 


05603 


505066 




AND 


K7 


/MASK AC 15-17 


05604 


045033 




DAC 


BITN 




05605 


104416 




JMS 


GENADR 


/ASSEMBLE SECOND ADR. 


05606 


602600 


/ 


JMP 


BLK1P 








.EJECT 





OF PROGRAM*? 
(DECIMAL) 



BLOCK 



\M .(IRQ 



PAGE 



/ENTER HFRF 
/ 



AFTE« SECOND ADDRESS 



<A "607 


7 610 


7 611 


•3?61 2 


0761 3 


519614 


7 6 1 5 


vJ^616 


05-617 


07620 


07621 


7 6 2 2 


07673 


? 6 ? 4 


07625 


07626 


07627 


07630 


0?631 


07632 


0^633 


07634 


07635 


07636 


07637 


07640 


07641 


07642 


07643 


07644 


07645 


07646 


07647 


07650 


07651. 


07652 


07653 


07654 


07655 


07656 


07657 


07660 


07661 



205021 
045013 
145021 

702530 
542527 
602617 
047527 
603006 
760000 
545012 
6 26 6 2 
545013 
6 3 6 
205012 
505067 
045033 
205013 
505067 
044537 
102645 
602667 
104537 
20360^ 
4 5 3 2 
10 3 010 
203606 
045032 
103010 
103610 
602543 

000000 

102647 
000000 
202647 
,505067 
545033 
741000 
602657 
442645 
622645 
544537 
442645 
622645 



/ 

DSLKl 



/ 

PROG 



LAC 
OAC 

D2M 

LAC 
SAO 
JMP 
OAC 
JMP 
LAW 
SAO 
JMP 
SAO 
JMP 
I.AC 
AND 
OAC 
LAC 
AND 
OAC 
JMS 
JMP 
JMS 
LAC 
OAC 
JMS 
LAC 
DAC 
JMS 
JMS 
JMP 



AO^CW 
BL0C2 
AORCW 

ROTB 
ROTA 
. +3 
ROTA 
QUERY 

RLOC1 

RLK2 

RLOC2 

QUERY 

BLOC1 

K70K 

RITN 

RL0C2 

K73K 

CRLF 

PROG 

RLK2 

CRLF 

BLKSX 

PRNT 

PNXT 

OVRLP 

PRNT 

PNVT 

LOCAT 

BLK1 



•1 

K70K 

BITN 





JMS 



LAC 

AND 

SAD 

SKP 

JMP .+3 

IS? PROG 

JMP» PROG 

SAD CRLF 

IS? PROG 

JMP* PROG 



/aSSFMRLED ADDRESS 
/LAST AOR. OF 1ST BLOCK 



/MUST BE EQUAL 
/O.K. 

/ADDRESS IS NOT 5 CHARS. 
/LAW - NO INPUT 



/CHECK FOR 2 INPUTS 

/PRINT QUERY AND START OVER 



/TEMP. SAVE AOR. BITS 3,4 AND 5 



/DO SAME WITH UPPER LIMIT 
/SEF IF LIMITS OVERLAP PROGRAM 
/O.K . 
/LIMITS IN SAME 4K AS PROGRAM 



/PRINT BLOCK #1 



/PRINT BLOCK #1 

/PRINT AREA OF PROGRAM 

/START OVER 



/STORE EPC 



/MASK PC 3,4 AND 5 

/CHECK IF SAME AS LOW LIMIT 

/YES. ERROR 

/NO 



/SEE IF SAME AS HIGH LIMIT 

/YES 

/EXIT 
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/INPUT ROUTINE FOR BLOCK #2 
/ 



0?662 


70330? 


PLK2 


CAF 






05663 


145021 




02M 


ADRCW 




07664 


760000 




LAW 






09665 


045014 




OAC 


BLOC3 




07666 


045015 




DAC 


BLOC4 




07667 


10 4 5 37 


/ 

/TYPE 1 
/ 

RLKN2 


JMS 


CRLF 








UOCK #2 AND WAIT 


FOR INPUT 


0?670 


203607 


LAC 


BLKTX 




07671 


04503? 




OAC 


PRNT 




0?672 


103010 




JMS 


PNXT 


/PRINT BLOCK #2 


07673 


203604 




LAC 


00NE3 


/C(DONE3)=DBLK2 


07674 


045011 




OAC 


EXIT 




07675 


20360? 




LAC 


TBLK 


/CCT3LK) = 8LK2 


0?676 


045020 




OAC 


OVER 




07677 


102766 


BLK2A 


JMS 


KEYIN 


/WAIT FOR INPUT 


07700 


102775 




JMS 


LEGAL 


/CHECK FOR LEGAL CHAR. 


07701 


205033 




LAC 


BITN 




09702 


505066 




ANO 


K7 


/MASK AC15-17 


07703 


045033 




DAC 


BITN 




07704 


104416 




JMS 


GENADR 


/ASSEMBLE ADDRESS 


07705 


602677 


/ 

/ENTER 
/ 


JMP 


BLK2A 








HERE AFTER FIRST 


ADDRESS 


07706 


705021 


LAC 


AORCW 


/ASSFM8LED ADDRESS 


07707 


045014 




DAC 


BLOC3 


/1ST ADR. OF 2ND BLOCK 


07710 


145021 




D2M 


ADRCW 




07711 


102766 




JMS 


KEYIN 


/WAIT FOR COMMA 


07712 


545053 




SAD 


K254 




07713 


741000 




SKP 






07714 


603006 




JMP 


QUERY 


/PRINT QUERY 


07715 


102766 


BLK28 


JMS 


KEYIN 


/WAIT FOP INPUT 


07716 


102775 




JMS 


LEGAL 


/SEE IF IT'S LEGAL 


07717 


205033 




LAC 


BITN 




07720 


505066 




AND 


K7 




07721 


045033 




DAC 


BITN 




07722 


104416 




JMS 


GENADR 




07723 


602715 


/ 

/RETURN 
/ 


JMP 


8LK2B 








HERE AFTFR 2ND ADDRESS 


07724 


205021 


LAC 


ADRCW 


/ASSEMBLED ADDRESS 


07725 


045015 




DAC 


BL0C4 


/LAST ADR. OF 2ND BLOCK 


07726 


145021 




DHM 


ADRCW 




07727 


102766 




JMS 


KEYIN 


/WAIT FOR C.R. 


07730 


54505? 




SAD 


K215 




07731 


741000 




SKP 




/DONF 


07732 


603006 




JMP 


QUERY 


/PRINT QUERY 



.EJECT 



^MiOHO 



PAGE 



7 733 
7 7 3 4 
7 735 
7 7 3 6 
07737 
7 7 4 
07741 
0774? 
07743 

0>744 
07745 
07746 
7 7 4 7 
07750 
7 7 51 
07 75? 
7 7 5 3 
07754 
07755 
07756 
07757 
07760 
07761 
0°762 
07763 
07764 
07765 



07766 
07767 
07770 
07771 
07772 
07773 
7 7 7 4 



07775 
07776 
07777 
<*3000 
03001 
03002 
03003 
03004 
03005 
03006 
03007 



207530 
542527 
602740 
042527 
603006 
760000 
545014 
603666 
545015 
60273? 
205014 
505067 
045033 
205015 
505067 
044537 
102645 
6 3 6 6 6 
104537 
203607 
04503? 
103010 
203606 
04503? 
103010 
103610 
60?66? 



000000 
70031? 
700301 
602770 
70031? 
045033 
622766 



000000 
205033 
545064 
60231? 
54505? 
625011 
505063 
545054 
622775 
103657 
625020 



P8LK? LAC 


R0T9 


SAD 


ROTA 


J MP 


.+3 


DAC 


ROTA 


JMP 


QUERY 


LAW 




SAD 


RL0C3 


JMP 


STLOOP 


SAO 


BLOC4 


JMP 


OBLK2-1 


LAC 


8LOC3 


AND 


K70K 


DAC 


BITN 


LAC 


RL0C4 


AND 


K70K 


DAC 


CRLE 


JMS 


PROG 


JMP 


STLOOP 


JMS 


CRLF 


LAC 


BLKTX 


DAC 


PR-MT 


JMS 


PNXT 


LAC 


OVRLP 


DAC 


PRNT 


JMS 


PNXT 


JMS 


LOCAT 


JMP 


BLK2 


/ 




/CHARACTER INPUT ROUTINE 


/ 




KEY IN 




KRB 




KSE 




JMP 


. -1 


KRP 




DAC 


8ITN 


JMP« 


• KFYIN 



/ 

/SEE IF CHARACTER IS LEGAL 

/ 

LEGAL 

LAC BITN 

SAD K377 

JMP KYBRD 

SAD K21.5 

JMPo EXIT 

AND K370 

SAD K260 

JMP* LEGAL 
QUERY JMS WOTIS 

JMP« OVER 



/MUST Bf EQUAL 
/O.K. 

/ADR. IS NOT 5 CHARS. 

/LAW^NO INPUT 

/CHECK FOR 2 INPUTS 
/START OVER 

/TEMP. SAVE MA 3. 4 AND 5 



/TEMP, SAVE HIGH LIMIT 

/SEE IF LIMITS OVERLAP PROGRAM 

/SETUP TO START LOOPS 

/LIMITS IN SAME 4K AS PROGRAM 



/PRINT BLOCK #2 



/PRINT LIMITS OVERLAP PROGRAM 
/PRINT AREA OF PROGRAM 
/START OVER 



/INITIALIZE 
/WA IT 



/TEMP. SAVE 
/FXIT 



/TTY CHAR. 

/CHECK FOR RUBOUT 

/START OVER WITH TEST # 

/CHECK FOR C.R. 

/TERMINATE 



/EXIT 

/PRINT QUESTION MARK 

/START PRESENT LINE OVER 



.EJECT 
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03010 


000000 


PNXT 




0^011 


445032 


IS? 


PRMT 


03012 


22503? 


LAC 


» PRNT 


03013 


741200 


SNA 




03014 


623010 


JMP 


» PNXT 


03015 


700406 


TLS 




03016 


700401 


TSF 




03017 


603016 


JMP 


.-1 


030?0 


742020 


RTR 


; RTR; RTR 


03021 


742020 






03022 


742020 






03023 


742020 


RTR 


; RAR 


03024 


740020 






03025 


700406 


TLS 




03026 


700401 


TSF 




03027 


603026 


JMP 


.-1 


03030 


603011 


JMP 
/ 

/ROUTINE TO Sf 
/ 

CMOVE LEM 


PNXT+1 






:tup FOR FIRST 


03031 


707704 




03032 


202310 


LAC 


ERTBL 


03033 


044757 


DAC 


ERWRD 


03034 


204756 


LAC 


FLAGS 


03035 


740020 


RAR 




03036 


741400 


SZL 




03037 


600156 


JMP 


EXTST 


03040 


740010 


RAL 




03041 


741100 


SPA 




03042 


603146 


JMP 


NXTMV 


03043 


245100 


XOR 


K400K 


03044 


044756 


DAC 


FLAGS 


03045 


750004 


LAS 




03046 


505044 


AND 


K3 


03047 


044774 


DAC 


ULBNK 


03050 


750004 


LAS 




03051 


742020 


RTR 




03052 


505044 


AND 


K3 


03053 


544774 


SAD 


ULRNK 


03054 


603241 


JMP 


ONLY1 


03055 


203055 


LAC 


# 


03056 


505072 


AND 


K10K 


03057 


740200 


S2A 




03060 


600100 


JMP 


BEGIN 


03061 


204775 


LAC 


LASTl 


03062 


505076 


AND 


K60K 


03063 


044771. 


DAC 


FLOADA 


0^064 


760000 


LAW 




03065 


344771 


TAD 


FLOADA 


03066 


045023 


DAC 


NXt.OC 


03067 


10355? 


JMS 


WHERE 


03070 


044770 


DAC 


FLOAD 


03071 


544771 


SAD 


FLOADA 


03072 


603134 


JMP 


SUR1 



/INCREMENT POINTER 



/ALL DONE 



PROGRAM MOVE 



/PUT AC 17 IN LINK 
/FORCFD MOVE MADE IF=1 
/KEEP RUNNING 

/NOT 1ST MOVE IF A 1 
/SEE WHERE TO GO NEXT 

/SET PIT 

/MASK UPPER LIMIT 



/MASK LOWER LIMIT 
/ONLY ONE BANK IF EQUAL 
/MOVF TO OPPOSITE 4K 
/CURRENT BANK 
/MASK BIT 5 

/DON'T MOVE IF NOW IN H] 
/CLEAR AND START OVER. 
/LAST BANK TO TEST 



4K 



/LAST BAN WILLsCURRENT BANK 
/-8K 

/NEXT DEST'N AFTER THIS ONE 
/SEE WHERE THE PROGRAM IS 

/IS PRESENT SAME AS NEXT 
/YES. SETUP FOR NEXT l LOWER 



/XMADR9 - TAPE 4 



> M .-, p r q 



P4GE ^0 



/NOW CHECK FOR ERROR RECOROED IN nrST'M BANK 
/ 



? ■< 7 3 


760000 


CKf UH 


LAw 






0.-074 


564757 




SAn 


» E'<WPD 


/NO FWRORS IF = LAW 


:< 7 5 


603106 




JMP 


STMV 




<076 


224757 




LAC 


• ERWRD 




03077 


544771 




SAO 


FLOADA 


/DOES ERROR ADR. = NFW 8ANK 


3 1 


6031 17 




JMP 


EQUAL 


/YES. 


U 1 


444757 




IS? 


ERWRD 




03102 


204757 




LAC 


ERWRD 




03103 


542311 




SAD 


ENFRR 




310 4 


741000 




SKP 




/donf table and no errors 


'713105 


6 3 7 6 


/ 

STMV 


JMP 


CKERR+3 


/LOOK AT NEXT 


0^106 


20 2 310 


LAC 


FRTBL 




03107 


044757 




OAC 


ERWRD 


/RESTORE POINTER 


M 1 


204771 




LAC 


FLOADA 


/NEXT RANK 


031H 


045025 




OAC 


OE^TN 




03112 


10355? 




JMS 


WHERE /CURRENT 


RANK AND FIELD 


0^113 


045024 




DAC 


SOURCE 




3 114 


545025 




SAO 


DESTN 


/ARE THEY EQUAL 


03115 


600105 




JMP 


BEGIN+5 


/YES. START OVER, DON'T "OVE 


03H6 


603473 


/ 


JMP 


MOVE 


/MOVF FROM HERE TO C(DESTN) 






/ERROR 

/ 

EQUAL 


IN NEK 


BANK, TRY NEXT 


BANK LOWER 


03H7 


545001 


SAD 


FIRST1 


/DOES ADR. = LOWEST BANK 


031?0 


603131 




JMP 


DNMVE 


/YES. DON'T MOVE 


03121 


741200 




SNA 




/IS IT ADR. 0, BANK 


03122 


603126 




JMP 


. +4 


/YES 


03123 


760000 




LAW 




/-8K 


*3124 


3 4 4 7 71 




TAD 


FLOADA 


/SUBTRACT 8K FROM NEW RANK 


03125 


045073 ' 




OAC 


NXLOC 


/NEXT NEW BANK 


3 12 6 


2 2 3 1. 




LAC 


ERT9L 




03127 


044757 




DAC 


ER'iRO 


/RESTORE POINTER 


03130 


603134 




JMP 


SUHl 




03131 


202310 


/ 

ONMVE 


LAC 


ERTBL 


/RESTORE POINTER 


03132 


044757 




DAC 


ERWRD 




03133 


6001 05 




JMP 


BEGIN+5 


/STAPT OVER 



03134 
03135 
03136 
03137 
03140 
03141 
314 2 
03143 
03144 
03145 



205023 
544771 
603117 
044771 
545001 
603073 
760000 
344771 
4 50 23 
603073 



/ 

/SUBTRACT 6K FROM NEW BANK 

/ 

SUB1 LAC NXLOC 

SAD FLOADA 

JMP EQUAL 

OAC FLOADA 

SAD FIRST1 

JMP CKERR 

LAW 

TAD FLOADA 

DAC NXLOC 

JMP CKERR 



/next new bank 

/see if it's = current new one 

/yes. try next lower 

/new new one 

/is it lowest bank 

/yes. check fop erro»s 

/-8K 

/NEW BANK FOR NEXT PASS 
/CHECK FOR ERRORS. 
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03146 
03147 
03150 
03151 

03153 
315 4 
03155 
03156 
03157 
03160 
03161 
0316? 
03163 
03164 
0M65 
316 6 
03167 
03170 

03171 
03172 
03173 
0^174 
317 5 
03176 
03177 
03200 

03201 
03202 
03203 
03204 
3 205 
03206 
03207 
03210 

03211 
03212 
03213 
03214 
03215 
03216 
03217 
03220 
03221 



204756 
740010 
741100 
603241 
10355? 
045024 
760000 
564757 
603171 
202310 
044757 
224757 
545023 
603211 
444757 
204757 
542311 
741000 
603161 

202310 
044757 
205023 
544771 
603200 
545001 
60322? 
545001 

603234 
044771 
760000 
344771 
045023 
204771 
045025 
603473 

205023 
741200 
603131 
760000 
345023 
045023 
544771 
603212 
603157 



/ROUTINE TO DETERINE PROGRAM 

/ 

NXTMV LAC FLAGS 

RAL 

SPA 

JMP ONLY1 

JMS WHERE 

OAC SOURCE 
CKNXT LAW 

SAD» ERWRO 

JMP STNXT 

LAC ERTBL 

DAC ERWRD 

LAC* ERWRD 

SAO NXLOC 

JMP SUR2 

IS? ERWRD 

LAC ERWRD 

SAD ENERR 

SKP 

JMP CKNXT+5 



/ 

STNXT 



/ 

SU82 



LAC ERTBL 
DAC ERWRD 
LAC NXLOC 
SAD FLOADA 
JMP .+3 
SAD FIRSTl 
JMP MVRK 
SAD FIRSTl 

JMP NXTHI 
DAC FLOADA 
LAW 

TAD FLOADA 
DAC NXLOC 
LAC FLOADA 
DAC DESTN 
JMP MOVE 

LAC NXLOC 

SNA 

JMP ONMVE 

LAW 

TAD NXLOC 

DAC NXLOC 

SAD FLOADA 

JMP SU«2+1 

JMP CKNXT+3 



MOVE AFTER ONE MOVE HAS BEEN MADE, 

/MOVE WITHIN A BANK IE A 1 
/WHFRE IS THE PROGRAM NOW 

/NO FRRORS IF 1ST = LAW 

/GET AN ERROR ADDRESS 

/ERROR IN NEXT BANK. TRY NEXT 

/noNF table and no errors 



/RES 
/NEW 
/DOE 
/YES 
/DOE 
/YES 
/DOE 
/THE 
/YES 
/NEW 
/-8K 



TORE POINTER 

BANK 
S IT = CURRENT BANK 

S IT = LOWEST BANK 

. CLEAR FLAGS AND MOVE 

S THE CURRENT ALSO = 

LOWEST BANK 
. SETUP FOR HIGHEST RANK 

CURRENT BANK 



/NEW NEXT BANK 



/MOVF FROM HERE TO C(DESTN) 



/IS NEXT = BANK 

/YES. DON'T MOVE 

/-8K 

/NEW NEXT BANK 

/DOES IT = CURRENT BANK 

/YES 

/SEE IF ERROR IN NEW BANK 



.EJECT 
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03222 


205023 


03223 


4 4 7 71 


3 2 2 4 


045025 


03225 


103552 


03226 


045024 


03227 


760000 


0323 0' 


064757 


03231 


045022 


03232 


144756 


03233 


603473 


3 2 3 4 


204775 


3 2 3 5 


505076 


03236 


045023 


"3^237 


4 4 7 7 


3 24 


603157 



03241 
0^242 
03?43 
3 2 4 4 
3?45 
03246 
3 2 4 7 
03250 
03251 
03252 
03253 
03254 
03255 



03256 
03257 
03260 
03261 
03262 
3 2 6 3 
03264 
03265 
03266 
03267 
03270 
03271 



205301 
544771 
603246 
144756 
600127 
103552 
045024 
245072 
045025 
2051 00 
744020 
244756 
044756 



760000 
564757 
603273 
202310 
044757 
224757 
545025 
603131 
444757 
204757 
542311 
741000 



MV8K 



/ 

NXTHI 



LAC NXLOC 
QAC F L nAOA 
DAC OESTN 
JMS WHERE 
DAC SOURCE 
LAW 

DAC» ERWRD 
DAC LAST 
DZM FLAGS 
JMP MOVE 

LAC LAST1 
AND K60K 
DAC NXLOC 
DAC FLOAD : 
JMP CKMXT+3 



/ 

/NEW CURRENT BANK 

/WHERE IS PROGRAM 



/CLEAR PROGRAM FLAGS 
/MOVF 



/HIGHEST BANK = NEXT BANK 
/CHECK FOR ERROR 



/ 
/ 
/ 
/ 

ONLY! 



ROUTINE TO MOVE ROUTINE TO OPPOSITE 4K FIELD 
WITHIN ONF RANK 



LAC 
SAO 
JMP 
D?M 
JMP 
JMS 

nAC 

XOR 
DAC 
LAC 
RCP 
XOR 
DAC 



FIRST1 

FLOADA 

. +3 

FLAGS 

STOVER 

WHERE 

SOURCE 

K10K 

DESTN 

K400K 

FLAGS 
FLAGS 



/ 

/CHECK FOR ERROR IN 4K FIELD 

/ 

CFLD 



LAW 

s a n » 

JMP M 
LAC E 
OAC E 
LAC« 
SAD D 
JMP D 
IS2 
LAC 
SAO 
SKP 



ERWRD 

V4K 

RTBL 

RWRD 

ERWRD 

ESTN 

NMVE 

RWRD 

RWRD 

NERR 



/DON'T MOVE IF NOT EQUAL 



/START OVER 

/WHERE IS PROGRAM NOW 

/«OVF FROM HERE - 

/TO HERE 



/SET BIT 1 



/NO FRRORS IF = LAW 



/FRROR IN 4K FIELD 



•EJECT 
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03272 


603263 




JMP CFLD+5 


0*273 


202310 


MV4K 


LAC ERTBL 


0*274 


044757 




OAC ERWRD 


0*275 


205025 


CLR4K 


LAC DESTN 


0*276 


045026 




OAC MOVED 


0*277 


770000 




LAW -11/1000 


0*300 


045006 




DAC LOOPT 


0*301 


165026 




OHM* MOVED 


0*302 


445026 




IS? MOVED 


0*303 


445006 




IS? LOOPT 


0*304 


603301 


I 


JMP .-* 






/ 

/STARTING MOVING TO OPPOSITE 


0*305 


205024 


/ 


LAC SOURCE 


0*306 


045027 




DAC MOVES 


0*307 


205025 




LAC DESTN 


0*310 


045026 




DAC MOVEO 


0*311 


445027 


MVRTN 


IS? MOVES 


0*312 


225027 




LAC* MOVES 


0*313 


044537 




DAC CRLF 


0*314 


505101 




AND K700K 


0*315 


245101 




XOR K700K 


0*316 


741200 




SNA 


0*317 


603327 




JMP OPRAT 


0*3?0 


204537 




LAC CRLE 


0*321 


245072 




XOR K10K 


0*32? 


445026 


MVOPR 


IS? MOVED 


0*323 


065026 




OAC« MOVED 


0*324 


544550 




SAD OLMT 


0*325 


603331 




JMP MVCST 


0*326 


603311 


/ 

OPRAT 


JMP MVRTN 


0*327 


204537 


LAC CRLF 


0*330 


603322 


/ 

MVCST 


JMP MVOPR 


0*331 


445027 


I S2 MOVES 


0*332 


225027 




LAC» MOVES 


0*333 


445026 




IS? MOVED 


0*334 


065026 




DAC* MOVED 


0*335 


544550 




SAO OLMT 


0*336 


741000 




SKP 


0*337 


603331 




JMP MVCST 


0*340 


204756 




LAC FLAGS 


0*341 


505043 




AND Kl 


0*342 


740200 




S?A 


0*343 


103547 




JMS FCHLT 



/RESTORE POINTER 

/-4K 

/CLEAR ThE 4K FIELD FIRST 

/OONF CLFAPING WHEN = 

4K 

/MOVF FROM HERE 

/TO MERE 

/GET 1 FROM THIS FIELD 
/SAVF TEMPORARILY 
/CLEAR ALL BUT OP CODE 

/OP CODE IS A 7X IF 
/DON'T MODIFY IT 

/ADJUST ADR. BY 10000 

/PUT IN OPPOSITE 4K FIELD 
/C(ni.MT) = 752525 
/NOW MOVE CONSTANT TABLES 
/MOVF ANOTHER 



/OONF CONSTANTS IF = 752525 



/HALT IF FORCED MOVE 

/PRESS CONT. AFTER RESTORING ACS 



.EJECT 
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07344 


203344 


LAC 




3 3 4 5 


505072 


AND 


K]0K 


03346 


741200 


SNA 




H 3 3 4 7 


625031 


JMP 


» RGNHI 


03350 


204756 


LAC 


FLAGS 


03351 


505043 


AND 


Kl 


0335? 


054756 


rue 


FLAGS+10000 


0^353 


625030 


JMP 


fiGNLO 






/ 

/ROUTINF TO Fi 

/ 

FCDMV STL 


ORCF MOVE TH 


3 3 5 4 


74400? 




03355 


750010 


GLK 




3 35 6 


044756 


DAC 


FLAGS 


0~357 


202310 


LAC 


FRTBL 


0^360 


044757 


DAC 


ERWRD 


03361 


707704 


LEM 




03362 


750004 


LAS 




03363 


742020 


RTR 


; rtr; 


03364 


742020 






03365 


742020 






03366 


505076 


AND 


K60K 


3 36 7 


045025 


DAC 


OESTN 


03370 


103552 


JMS 


WHFRE 


03371 


045024 


DAC 


SOURCE 


03372 


750004 


LAS 




03373 


505050 


AND 


K100 


03374 


740200 


SHA 




03375 


603432 


JMP 


MVFHI 


3 3 7 6 


760000 CKFCD LAW 




03377 


564757 


SAD» ERWRD 


03400 


6 3414 


JMP 


WHWAY 


3 4 01 


202310 


LAC 


ERTBL 


03402 


044757 


DAC 


ERWRD 


03403 


224757 


LAC» ERWRD 


03404 


545025 


SAD 


DESTN 


03405 


603413 


JMP 


XPRT 


3 4 6 


444757 


IS? 


ERWRD 


03407 


204757 


LAC 


ERWRO 


3 410 


542311 


SAO 


ENERR 


03411 


603414 


JMP 


. +3 


03412 


603403 


JMP 


CKFCD+5 


3 413 


103556 XPRT JMS 

/ 
205025 WHWAY LAC 


PRSEL 


3 414 


DESTN 


03415 


544771 


SAD 


FLOAOA 


03416 


603273 


JMP 


MV4K 


03417 


044771 


DAC 


FLOADA 


03420 


203420 


LAC 


, 


03421 


50507? 


AND 


K10K 


03422 


741200 


SNA 




03423 


603473 


JMP 


MOVE 


03424 


205030 


LAC 


BGNLO 


03425 


50510? 


AND 


K7S 


03426 


245025 


XOR 


DESTN 



/SEE WHICH 4K CURRENTLY IN 
/LOWFR EXIT TO UPPER 



/UPPFR EXIT TO LOWER 



/SET FLAG FOR FORCED MOVE 



PTR 



/SAVF NEW BANK 

/WHERE IS PROGRAM NOW 

/CURRENT FIELD AND BANK 



/IF PIT 11 A 1 MOVE TO HI 4K 



/NO FRRORS IF 1ST s LAW 
/NONF. SEE WHICH WAY TO MOVE 

/RESTORE POINTER 

/SEE IF ERROR ADR. = NFW 8ANK 
/YES. PRINT MESSAGE 



/INCREMENT POINTER 

/PRINT ERROR IN SELECTED 4K 

/IS OESTN TO THIS BANK 

/YES. MOVE TO OTHER 4K 

/NEW CURRENT BANK 



/MOVF FROM HI TO LO 4K IF A 1 
/MOVF SAME 4K TO SAME 4K 
/BGNLO = JMP STOVER 

/PUT BANK # ON THE JMP 



XMADR9 
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034P7 


04SP30 


3 4 3 


70770? 


03431 


603?73 



DAC RGNLO 

FEM 

JMP MV4K 



.EJECT 



< Mi R 9 



D AGE 



03432 
03433 
3 4 34 
03435 
3 4 36 
3 4 3 7 
0^44 
03441 
0344^ 
03443 
03444 
3 4 4 5 
.3 4 4 6 

.3 4 4 7 

03450 

3 4 51 
03452 

03453 
03454 
3 4 5 5 
0345 6 
03457 
3 4 6 
03461 
03462 
03463 
3 4 6 4 
03465 
3 4 6 6 
3 4 6 7 
3 4 7 
3 4 7 1 
03472 



03473 
3 4 7 4 
03475 
3 4 7 6 
3477 

0.3500 
03501 
03502 
03503 



205025 
24507? 
045025 
760000 
564757 
60 3 4 5 3 
202310 
044757 
224757 
545025 
60345? 
444757 
204757 
5 4 3 311 
603453 

60344? 

103556 

205025 
505076 
544771 
603273 
205025 
044771 
203461 
50507? 
740200 
603473 
205031 
50510? 
245025 
045031 
707702 
603273 



70770? 
205025 
045026 
770000 
045006 
165026 
445026 
445006 
603500 



/ 

/FORCE MOVF TO AN UPPER 4« 

/ 

MVEHI L4C DESTN 

XOR K10K 

OAC DESTN 
FCOCK LAW 

SAD» ENWRD 

JMP WCHWA 

LAC ERT8L 

OAC ERwRD 

LAC» ERWRD 

SAO DESTN 

JMP PRTSL 

IS? ERWRD 

LAC ERWRD 

SAD ENFRR 

JMP .+3 



PRTSL 
/ 

WCHWA 



JMP 

JMS 

LAC 
AND 
SAO 
JMP 
LAC 
OAC 
LAC 
AND 
SHA 
JMP 
LAC 
AND 
XOR 
OAC 
EEM 
JMP 



/MOVE ROUTINE 
/ 



FCOCK+5 
PRSEL 

DESTN 

K60K 

FLOADA 

MV4K 

DESTN 

FLOADA 

K10K 

MOVE 

BGNHI 

K7S 

DESTN 

BGNHI 

MV4K 

TO MOVE ONE 4K 



/SET RIT 5 FOR HI 4K 



/NO FPRORS IF EQUAL 
/SEF WHICH WAY TO MOVE 

/PESTOPE POINTER 

/OOFS FRROR ADR. = NFW BANK 
/YES. PRINT MESSAGE 



/INCREMENT POINTER 
/PRINT ERROR IN SELECTED 4K 



/IS DESTN TO THIS BANK 
/YES. MOVE TO OTHER 4K 

/NEW CURRENT BANK 



/MOVF FROM HI TO HI IF A 1 
/RGNHl s JMP STOVER FN HI 4K 
/PUT BIT 5 AND BANK * ON THE JMP 

TO SAME 4K 



MOVE 



FEM 

LAC 

DAC 

LAW 

DAC 

DHM» 

IS?. 

IS? 

JMP 



DESTN 
MOVED 
-10000 
LOOPT 

MOVED 
MOVEO 
LOOPT 
. -3 



/CLFAR THE 4K FIELD 



.EJECT 
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3 5 4 


205025 


03505 


045026 


0.^506 


205024 


03507 


045027 


03510 


445027 


03511 


225027 


03512 


445026 


03513 


065026 


03514 


544550 


03515 


741000 


3 516 


603510 


03517 


205030 


035?0 


505102 


03521 


245025 


03522 


045030 


03523 


205031 


03524 


505103 


03525 


245025 


03526 


045031 


03527 


445027 


03530 


225027 


03531 


445026 


03532 


065026 


03533 


544550 


03534 


741000 


03535 


603527 


03536 


204756 


03537 


505043 


03540 


740200 


03541 


103547 


03542 


203542 


03543 


505072 


03544 


740200 


03545 


625031 


03546 


625030 



HOVE! 



MOVEC 



LAC DESTN 
DAC MOVED 
LAC SOURCE 
DAC MOVES 
IS? MOVES 
LAC* MOVES 
IS? MOVED 
DAC* MOVED 
SAO DLMT 
SKP 

JMP MOVEI 
LAC BGNLO 
AND K7S 
XOR DESTN 
OAC BGNLO 
LAC RGNHI 
AND K17S 
XOR DESTN 
DAC BGNHI 
IS? MOVES 
LAC» MOVES 
ISZ MOVED 
DAC* MOVED 
SAD DLMT 
SKP 

JMP MOVEC 
LAC FLAGS 
AND Ki 
SHA 

JMS FCHLT 
LAC . 
AND K10K 
S2A 

JMP* BGNHI 
JMP* BGNLO 



/MOVE FROM HERE 

/TO HERE 

/INCREMENT SOURCE POINTER 

/INCR. DESTINATION POINTFP 

/OONF INSTRUCTIONS IF=7525?5 

/JMP STOVER IN LO 4K 
/PUT 8ANK# ON STOVER AOR. 
/JMP STOVER IN HI 4K 
/PUT BANK* ON STOVER AOR. 



/DONF CONSTANTS IF = 752525 



/GO HALT IF A FORCED MOVE 



/SEE WHICH 4K CURRENTLY IN 
/LOWFR IF SKIP 
/JMP TO STOVER IN HI 4K 
/JMP TO STOVER IN LO 4K 



.EJECT 



< M.n OR 9 



PAGE 



/ 

/HALT HERE IN CURRENT BANK AFTER A EORcEO MOVE, 

/RESTORE ACS AND PRESS CONTlNUF To ST A RT PROGRAM 

/ 



IN NEW LOCATION, 



03547 


000000 


FCHLT 





03550 


740040 




HLT 


0,3551 


623547 


/ 

WHERE 


JMP* FCHLT 


0355? 


000000 





03553 


20355? 




LAC .-1 


03554 


505067 




AND K70K 


"< 5 5 5 


62355? 


/ 

/PRINT 

/ 

PRSEL 


JMPo WHERE 






ERROR IN SELECTED 


03556 


000000 





3 5 5 7 


104537 




JMS CRLF 


0:<560 


203566 




LAC ERSEL 


03561 


04503? 




DAT PRNT 


03562 


10 3 010 




JMS PNXT 


03563 


104537 




JMS CRLF 


03564 


10206? 




JMS HALT 


7 5 6 5 


623556 


/ 

ERSEL 

/ 

/PRINT 

/ 

HEXED 


JMP« PRSEL 


03566 


4 716 


SLTER 






L.L. EXCEEDS U.L. 


03567 


203576 


LAC XCEED 


03570 


4 5 03? 




DAC PRNT 


03571 


104537 




JMS CRLF 


03572 


103010 




JMS PNXT 


03573 


104537 




JMS CRLF 


03574 


102062 




JMS HALT 


03575 


600127 


/ 

XCEED 
/ 


JMP STOVER 


03576 


00473? 


LMTUL 






.EJECT 



4K 



/RESTORE ACS AND PRESS CONT. 



/CR.LF 



/PRINT MESSAGE 

/CR.I.E 

/CO MALT 

/RETURN HERE IF NO ACS CHANGES 



/CR.LF 

/L.L. EXCEEDS 

/GO HALT 
/START OVER 



U.L, 
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0^577 
03600 
03601 
03602 
03603 
3 6 4 
03605 
03606 
0^607 



03&10 
03611 
03612 
03613 
03614 
3 615 
03616 
03617 

03620 

03621 
03622 
03623 
03624 
03625 
03626 
03627 
03630 
03631 
3 6 3 2 
03633 
03634 
03635 



002350 
002517 
002543 
002662 
002612 
002733 
4 6 2 3 
4 6 4 3 
004633 



000000 
104537 
203656 
045032 
10 3 010 
103616 



20 3 616 
505067 
744010 
7 4 2 010 
742010 
7 4 0010 
345054 
044537 
203616 
505072 
740200 
603647 
203653 
045032 
103010 



SUPIN 

DNSUP 

BLK1 

PLK2 

nBLKl 

DBLK2 

PLKS 

OVLAP 

RLKT 



/ 

INSUP 

SUPON 

N8LK 

TBLK 

DONE? 

DONE 3 

BLKSX 

OVRLP 

BLKTX 

/ 

/PRINT AREA OF PROGRAM 

/ 

LOCAT 

JMS CRLF 
LAC PISIN 
DAC PPNT 
JMS PNXT 
JMS .+1 


LAC .-1 
AND K70K 

rcl; rtl; rtl 



EPC 



RAL 
TAD 
DAC 
LAC 
AND 
S2A 
JMP 
LAC 
DAC 
JMS 



K260 

CRLF 

EPC 

K1BK 

HIS MR 
LO-i 
PRNT 
PNXT 



/PRIN'T "PROGRAM IS IN' 



/MASK PC 3. 4 AND 5 



/RANK 
/SAVF 



FMPORARILY 



/MASK PIT 5 
/SFF IF IN LOW 



OR HIGH 4K 



/PRINT "LOWFR" 



.EJECT 



\ M ■. n R 9 



PACE 



3 63 6 


203655 


OFRNK 


LAC FLDBNK 


03637 


4 5 3 2 




DAC PR.MT 


3 6 4 


103010 




JMS PNxT 


3 6 4 1 


204537 




LAC CRLF 


3 6 4? 


700406 




TLS 


3 6 4 3 


700401 




TSF 


03644 


603643 




JMP .-1 


3 6 4 5 


104537 




JMS CRLF 


03646 


623610 


/ 

HIGHR 


JMP» LOCAT 


"3647 


203654 


LAC HIRE 


03650 


045032 




DAC PRNT 


03651 


103010 




JMS PNXT 


3 A <5 J 


603636 


/ 

LOW 


JMP OFRNK 


'"''653 


004671 


LOWER 


03654 


004676 


HIRE 


HIGH 


03655 


004703 


FLDBNK 


FIFLO 


03656 


004660 


PISIN 

/ 

WOTIS 


PLOC 


3 6 5 7 


000000 





03660 


104537 




JMS CRLF 


03661 


760277 




LAW 277 


03662 


700406 




TLS 


03663 


700401 




TSF 


03664 


603663 




JMP .-1 


03665 


623657 


/ 

/SETUP 
/ 
STLOOP 


JMP« WOTIS 






ROUTINES FOP 1 


3 6 6 6 


104537 


JMS CRLF 


03667 


760000 




LAW 


3 6 7 


545012 




SAD BL0C1 


03671 


741000 




SKP 


03672 


603676 




JMP SETUl 


03673 


545014 




SAO RL0C3 


03674 


600127 




JMP STOVER 


3 6 7 5 


603731 


/ 

SETUl 


JMP SETU2 


03676 


205003 


LAC TNUM 


03677 


741200 




SNA 


03700 


760261 




LAW 261 


03701 


045003 


/ 


OAC TNUM 






/XMA0R9 
/ 


- TAPE 5 


03702 


205012 


LAC BL0C1 


03703 


740001 




CMA 


03704 


34 5 4 3 




TAD Kl 


03705 


345013 




TAD BL0C2 


03706 


741100 




SPA 


03707 


603760 




JMP REVR1 


03710 


205012 


SINGL 


LAC 8L0C1 


03711 


505076 




AND K60K 


03712 


045010 




OAC PATBNK 



/PRINT "4K FIELD OF HANK' 
/PRINT BANK NO. 



/PRINT "UPPER" 



/HIGHER 

/4K FIELD OF BANK 

/PROGRAM IS IN 



/CR, LF 
/QUESTION MARK 



/SEE IF ANY BLOCKS SELECTED 
/LAWsNONE SELECTED 

/NO BLOCKS SELECTED 

/SFF IF A TEST WANTED 
/NO, USE TEST 1 



/2'S COMPLEMENT UPPER lImIT 
/REVERSE IF NEG. 
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03713 


205003 




LAC TNUM 


03714 


505064 




AND K377 


03715 


545055 




SAD K261 


03716 


603767 




JMP SIMUl 


03717 


545056 




SAD K262 


03720 


604056 




JMP SIMU? 


03721 


545057 




SAD K263 


03722 


604116 




JMP SIMU3 


03723 


545060 




SAD K264 


03724 


604200 




JMP SIMU4 


03725 


545061 




SAD K265 


03726 


604256 




JMP SIMU5 


03727 


205003 




LAC TNUM 


03730 


740040 




HLT 


03731 


205003 


/ 

SETU2 


LAC TNUM 


03732 


741200 




SNA 


03733 


760261 




LAW 261 


03734 


045003 




DAC TNUM 


0^735 


205014 




LAC BL0C3 


03736 


740001 




CMA 


03737 


345043 




TAD Kl 


03740 


345015 




TAD BL0C4 


03741 


741100 




SPA 


03742 


603753 




JMP REVR2 


03743 


205014 




LAC RL0C3 


03744 


045012 




DAC RL0C1 


03745 


205015 




LAC BL0C4 


03746 


045013 




DAC BLOC? 


03747 


760000 




LAW 


03750 


045014 




DAC BL0C3 


03751 


045015 




DAC BLOC4 


03752 


603710 


/ 

PEVR? 


JMP SINGL 


03753 


205015 


LAC BL0C4 


03754 


045012 




DAC Btnci 


03755 


205014 




LAC BL0C3 


03756 


045013 




DAC BLDC2 


03757 


603747 


/ 

REVRl 


JMP REVR2-4 


03760 


205013 


LAC BLOC2 


03761 


045033 




OAC BITN 


03762 


205012 




LAC 8L0C1 


03763 


045013 




DAC RL0C2 


03764 


205033 




LAC BITN 


33765 


045012 




OAC BLOC1 


03766 


603710 




JMP SINGL 
.EJECT 



/DETERMINE PATTERN 

/TEST 1 PATTERN 
/TEST 2 PATTERN 
/TEST 3 PATTERN 
/TEST 4 PATTERN 
/TEST 5 PATTERN 
/SHOULD NEVER GET HERE 



/LAST AOR, IS >FIRST IF 
/REVFRSE CONTENTS 

/1ST TO TEST 

/LAST TO TEST 

/A LAW = NO BLOCK SELECTED 



\ M .i n R 9 



P4GE 6? 



/SETUP FOR TfST 1 
/ 



.^ 7 6 7 

0.^770 
0^771 
0-^77? 
0-^773 
0^774 



a^775 
0:<776 
0.^777 
04 000 
04001 
0400? 
04003 
04 004 
04005 

0^006 

04007 
4 010 



'11011 

0401 ? 
04013 
04014 

04015 



0<»016 

04017 
04020 
040?1 

04022 
04023 
04024 
04025 
04026 
04027 
04030 

04031 
04032 
04033 
04034 
04035 



102035 
205012 
045000 
205013 
044777 
600327 



205000 
545015 
604011 
760000 
545014 
604011 
104371 
205014 
045000 
205015 
044777 
600327 



20501? 
045000 
205013 
044777 
600366 



205000 
545015 
604031 
760000 
545014 
604036 
205014 
045000 
205015 
044777 
600366 

205014 
045000 
205015 
044777 
600430 



SIMUl 



/ 

/RETURN 

/ 

BLKA1 



JMS 
LAC 
DAC 
LAC 
DAC 
JMP 



WHT1S 

RLOCl 

MEMAOR 

BLUC2 

LSTLOC 

WBLK1 



/PUT l'S INTO ALL OF CORE 
/1ST LOC. OF BLOCK 1 
/ADDRESS COUNT 
/LAST LOC. OF BLOCK 1 
/LAST LOC. TO TEST 
/WRITE PATTERN IN BLOCK 1 



HERE AFTER WRITING BLOCK 1 



LAC 
SAD 
JMP 
LAW 
SAD 
JMP 
JMS 
LAC 
DAC 
LAC 
DAC 
JMP 



MEMADR 

BL0C4 

T1RDF 

BL0C3 

T1RDF 

CKADR 

RL0C3 

MEMADR 

RL0C4 

LSTLOC 

WBLKl 



/ 

/SETUP TO 

/ 

T1RDF 



READ FORWARD 



LAC 
DAC 
LAC 
DAC 
JMP 



BLOC1 

MEMADR 

BLOC2 

LSTLOC 

RLOPi 



/ 

/RETURN 

/ 

BLKB1 



HERE AFTER READING 



/ 

T1RDA 



LAC 
SAD 
JMP 
LAW 
SAO 
JMP 
LAC 
DAC 
LAC 
DAC 
JMP 

LAC 
OAC 
LAC 
DAC 
JMP 



MEMADR 

BLOC4 

T1RDA 

BL0C3 

TlRDB 

BL0C3 

MEMADR 

BL0C4 

LSTLOC 

RLOPI 

BLOC3 

MEMADR 

BL0C4 

LSTLOC 

RAKl 



/LAST ADDRESS WRITTEN 
/SEE IF 2 BLOCKS WRITTEN 
/SETUP TO READ FORWARD 
/SEE IF BLOCK 2 WANTED 

/NO. READ BLOCK 1 FORWARDS 

/1ST LOC. OF BLOCK 2 

/ADDRESS COUNT 

/LAST LOC. OF BLOCK 2 

/LAST TO TEST 

/WRITF PATTERN IN BLOCK 2 



/1ST LOC., BLOCK 1 

/LAST LOC. , BLOCK 1 

/READ BLOCK l FORWARDS 

A BLOCK FORWARD 

/LAST READ 

/DONF BOTH BLOCKS IF EQUAL 

/READ 2 BLOCKS BACKWARD 

/SEE IF ? SELECTED 
/NO. READ 1 BACKWARD 
/IST LOC. OF BLOCK 2 

/LAST LOC. OF BLOCK 2 

/READ BLOCK 2 BACKWARD 

/1ST IN BLOCK 2 s LAST TO READ 

/LAST IN 8L0CK 2 = 1ST TO READ 

/READ BLOCK 2 BACKWARD 



•EJECT 
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03713 


205003 




LAC TNUM 


03714 


505064 




AND K377 


03715 


545055 




SAD K261 


03716 


603767 




JMP SIMUl 


03717 


545056 




SAD K262 


03720 


604056 




JMP SIMU? 


03721 


545057 




SAD K263 


03722 


604116 




JMP SIMU3 


03723 


545060 




SAD K264 


03724 


604200 




JMP SIMU4 


03725 


545061 




SAD K265 


03726 


604256 




JMP SIMU5 


03727 


205003 




LAC TNUM 


03730 


740040 




HLT 


03731 


205003 


/ 

SETU2 


LAC TNUM 


03732 


741200 




SNA 


03733 


760261 




LAW 261 


03734 


045003 




DAC TNUM 


03735 


205014 




LAC BL0C3 


03736 


740001 




CMA 


03737 


345043 




TAD Kl 


03740 


345015 




TAD BL0C4 


03741 


741100 




SPA 


03742 


603753 




JMP REVR2 


3 7 4 3 


205014 




LAC RL0C3 


03744 


04501? 




DAC RLOCl 


03745 


205015 




LAC 8L0C4 


03746 


045013 




DAC 8L0C2 


03747 


760000 




LAW 


03750 


045014 




DAC RL0C3 


03751 


045015 




DAC BL0C4 


03752 


603710 


/ 

PEVR? 


JMP SINGL 


03753 


205015 


LAC BL0C4 


03754 


04501? 




DAC BL0C1 


03755 


205014 




LAC BL0C3 


03756 


045013 




DAC BLOC? 


03757 


603747 


/ 

REVRl 


JMP REVR2-4 


03760 


205013 


LAC BL0C2 


03761 


045033 




OAC BITN 


03762 


205012 




LAC BLOC1 


03763 


045013 




DAC BL0C2 


03764 


205033 




LAC BITN 


03765 


045012 




DAC BLOC1 


03766 


603710 




JMP SINGL 
.EJECT 



/HFTFRMINE PATTERN 

/TEST 1 PATTERN 
/TFST 2 PATTERN 
/TEST 3 PATTERN 
/TEST 4 PATTERN 
/TEST 5 PATTERN 
/SHOULD NEVER GET HERE 



/LAST ADR. IS >f"IRST IF fl 
/REVFRSE CONTENTS 

/1ST TO TEST 

/LAST TO TEST 

/A LAW = NO BLOCK SELECTED 



\M.sriR9 



P 4 G E f . ? 



(1 3 76 7 

(13770 
03771 
0377? 
9. i 7 7 3 
0^774 



Pl-^775 
03776 
3 7 7 7 
0<-000 

4 001 
0400? 

04003 

04004 
04005 
04006 
04007 
4 010 



11011 
0401 ? 
01013 

04014 

04015 



04016 
04017 
04020 
04021 

04022 
040?3 
04024 
04025 
04026 
04027 
04030 

04031 
04032 
04033 
04034 
04035 



102035 
20501? 
045000 
205013 
044777 
600327 



205000 
545015 
604011 
760000 
545014 
604011 
104371 
205014 
045000 
205015 
044777 
600327 



20501? 
045000 
205013 
044777 
600366 



205000 
545015 
604031 
760000 
545014 
604036 
205014 
045000 
205015 
044777 
600366 

205014 
045000 
205015 
044777 
600430 



/ 

/SETUP FOR TFST 1 

/ 

SIMU1 



JMS WRT1S 
LAC BtnCl 
DAC MEMADR 
LAC BLUC2 
DAC LSTLOC 
JMP WBLK1 



/PUT l'S INTO ALL OF CORE 
/1ST LOC. OF BLOCK 1 
/ADDRESS COUNT 
/LAST LOC. OF BLOCK l 
/LAST LOC. TO TEST 
/WRITE PATTERN IN BLOCK 1 



/ 

/RETURN HERE AFTER WRITING BLOCK 1 

/ 

BLKA1 



LAC 


MEMADR 


SAD 


BL0C4 


JMP 


T1RDF 


LAW 




SAD 


BL0C3 


JMP 


T1RDF 


JMS 


CKADR 


LAC 


BLOC3 


DAC 


MEMADR 


LAC 


BLOC4 


DAC 


LSTLOC 


JMP 


WBLK1 



/ 

/SETUP TO READ FORWARO 

/ 

T1RDF LAC 8LDC1 

DAC MEMADR 

LAC BL0C2 

DAC LSTLOC 

JMP RLOPl 
/ 

/RETURN HERE AFTFR READING 
/ 
BLKB1 



/ 

T1RDA 



LAC 


MEMADR 


SAD 


BLOC4 


JMP 


T1RDA 


LAW 




SAD 


BL0C3 


JMP 


T1RDB 


LAC 


BL0C3 


DAC 


MEMADR 


LAC 


BL0C4 


DAC 


LSTLOC 


JMP 


RLOPl 


LAC 


BL0C3 


DAC 


MEMADR 


LAC 


BLOC4 


DAC 


LSTLOC 


JMP 


BAKl 


.EJECT 



/LAST AODRESS WRITTEN 
/SFE IF 2 BLOCKS WRITTEN 
/SETUP TO READ FORWARD 
/SEE IF BLOCK 2 WANTED 

/NO. READ BLOCK 1 FORWARDS 

/1ST LOC. OF SLOCK 2 

/ADDRESS COUNT 

/LAST LOC. OF BLOCK ? 

/LAST TO TEST 

/WRITE PATTERN IN BLOCK 2 



/1ST LOC. , BLOCK 1 

/LAST LOC. , BLOCK 1 

/READ BLOCK l FORWARDS 

A BLOCK FORWARD 

/LAST READ 

/DONF BOTH BLOCKS IF EQUAL 

/READ 2 BLOCKS BACKWARD 

/SEE IF ? SELECTED 
/NO. READ 1 BACKWARD 
/IST LOC. OF BLOCK 2 

/LAST LOC. OF BLOCK ? 

/REAn BLOCK 2 BACKWARD 

/IST IN BLOCK 2 = LAST TO READ 

/LAST IN BLOCK 2 = 1ST TO READ 

/READ BLOCK 2 BACKWARD 
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04036 


20501? 


/ 

T1RDR 


LAC RL0C1 


01037 


045000 




DAC MEMADR 


01040 


205013 




LAC BL0C2 


01041 


044777 




OAC LSTLOC 


01042 


600430 




JMP BA*1 



04043 


204777 


04044 


54501? 


04045 


741000 


04046 


60 4 3 6 


04047 


750004 


04050 


741100 


04051 


10206? 


04052 


505051 


04053 


74020(4 


04054 


60231? 


04055 


603767 



04056 


102035 


04057 


20501? 


04060 


045000 


04061 


740001 


04062 


505103 


04063 


045007 


04064 


205013 


04065 


505076 


04066 


245007 


04067 


045007 


04070 


205013 


04071 


044777 


04072 


600470 



04073 
04074 
01075 
04076 
04077 
04100 
0H01 
04102 
04103 
04104 
04105 

04106 



04107 
04110 
04 111 



760000 
545014 
604107 
104371 
205014 
045000 
205015 
044777 
204106 
045011 
60067? 

004107 



750004 
741100 
10206? 



/1ST IN RLOCK 1 r LAST TO REAO 
/LAST IN BLOCK 1 s 1ST TO REAO 
/READ RLOCK 1 BACKWARD 



/RETURN HERE AFTFR READING A BLOCK BACKWARD 
/ 



BLKCl LAC LSTLOC 
SAD BLOC1 
SKP 

JMP TlRDB 
LAS 
SPA 

JMS HALT 
AND K200 
S2A 

JMP KYBRD 
JMP SIMUl 
/ 

/SETUP FOR TEST 2 
/ 

SIMU2 JMS WRT1S 
LAC 8LOC1 
DAC MEMADR 
CMA 

AND K17S 
DAC PATR 
LAC BLOC2 
AND K60K 
XOR PATR 
DAC PATR 
LAC BL0C2 
DAC LSTLOC 
JMP L0P2+2 



/LAST REAO 

/ALL DONE IF EQUAL 

/SETUP FOR BLOCK 1 

/CHECK ASC FOR HALT 
/GO HALT 

/CHfCK ASC 10 
/START ALL OVER 



/WRITE l'S INTO ALL OF CORF 
/1ST LOC. IN BLOCK 1 
/ADDRESS COUNT 
/COMPLEMENT 
/CLEAR BITS 0-4 



/PUT RANK* ON PATR 

/PATTERN TO WRITE IN BLOCK 1 

/LAST LOC. IN BLOCK 1 

/LAST TO TEST 

/WRITE PATTERN IN BLOCK 1 



/ 

/RETURN HERE AFTER READING BLOCK 1 

/ 

BLKA? LAW 

SAD BL0C3 

JMP 8LKB2 

JMS CKADR 

LAC BLOC3 

DAC MEMADR 

LAC 8LOC4 

DAC LSTLOC 

LAC DONE4 

OAC EXIT 

JMP REST2+2 
/ 

D0NE4 BLKB2 
/ 

/RETURN HERE AFTFR READING BLOCK ? 
/ 
BLKB? LAS 

SPA /CHECK ASC FOR HALT 

JMS HALT /GO HALT 



/SEE IF 2 BLOCKS SELECTED 
/NO. WRITE ANO REAO BLOCK 1 

/IST LOC. IN BLOCK 2 

/LAST LOC. IN BLOCK ? 

/C1D0NE4) = BLKB2 

/SEE IF BLOCK 2 = ALL l'S 
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.EJECT 



KM4DR9 
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01113 
04 114 
0^115 



505051 
740200 
60931? 
604056 



04H6 


102035 


04H7 


20501? 


04120 


045000 


041?1 


205013 


04122 


044777 


04123 


600737 


04124 


760000 


04125 


545014 


04126 


6041 40 


04127 


104371 


04130 


205014 


04131 


045000 


04132 


205015 


04133 


044777 


04134 


204137 


04135 


045011 


04136 


60067? 


04137 


0041 40 


04140 


20501? 


04141 


045000 


04142 


205013 


04143 


044777 


04144 


601031 


04145 


20501? 


04146 


045000 


04147 


205013 


04150 


044777 


04151 


601055 


04152 


760000 


04153 


545014 


04154 


604165 


04155 


205014 


04156 


045000 


04157 


205015 


04160 


044777 


04161 


204164 


04162 


045011 


04163 


60067? 


04164 


004165 





AND 


K200 




S?A 






JMP 


KYHRD 


/ 

/SFTUP 

/ 

SIMU3 


JMP 


SIMU2 


FOR TFST 3 


JMS 


WRT1S 




LAC 


BLOC! 




OAC 


MEMADR 




LAC 


RL0C2 




OAC 


LSTLOC 


/ 

BLKA3 


JMP 


LO03+1 


LAW 






SAD 


8L0C3 




JMP 


BLKB3 




JMS 


CKAOR 




LAC 


8LOC3 




OAC 


MEMADR 




LAC 


BL0C4 




OAC 


LSTLOC 




LAC 


D0NE5 




OAC 


EXIT 




JMP 


REST2+2 



/ 

D0ME5 

/ 

BLKR3 



/ 

BLKC3 



/ 

BLKD3 



/ 

00NE6 
/ 



BLK83 

LAC BLOC1 
OAC MEMADR 
LAC BL0C2 
OAC LSTLOC 
JMP FW03-1 

LAC BLOC1 
OAC MEMADR 
LAC BLOC? 
OAC LSTLOC 
JMP BAK3-1 

LAW 

SAD BL0C3 
JMP BLKE3 
LAC BLOC3 
DAC MEMADR 
LAC BL0C4 
OAC LSTLOC 
LAC D0NE6 
OAC EXIT 
JMP REST2+2 

BLKE3 

.EJECT 



/MAST BIT 10 

/GO ACCEPT INPUT 

/START OVER WITH BLOCK 1 



/WPITT l'S INTO ALL OF CORE 
/1ST LOC. OF BLOCK 1 

/LAST LOC. OF BLOCK 1 

/WRITF BLOCKl 

/SEE IF 2 BLOCKS SELECTED 
/ONLY ONE 

/1ST LOC. OF BLOCK 2 

/LAST LOC. OF BLOCK 2 

/C(DONE5)=BLK83 



/READ BLOCKl FORWARD 



/READ BLOCK 1 BACKWARD 

/SEE IF 2 BLOCKS 

/ONLY ONE 

/1ST LOC. OF BL0CK2 

/LAST LOC. OF BLOCK 2 

/C(OONE6)=BLKE3 

/READ BLOCK 2 
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C*"165 


20501? 


RLKE3 


LAC 


BL0C1 


01166 


045000 




DAC 


MEMADR 


0^167 


205013 




LAC 


BLOC? 


04170 


044777 




DAC 


LSTLOC 


00171 


750004 




LAS 




04172 


7411 00 




SPA 




00173 


10206? 




JMS 


HALT 


04174 


505051 




AND 


K 2 , 


00175 


740200 




SHA 




04176 


60231? 




JMP 


KYRRD 


00177 


601110 


/ 

/SETUP 

/ 

SIMU4 


JMP 


BAK3A-1 






FOR TEST 4 


00200 


102035 


JMS 


WRT1S 


04201 


20501? 




LAC 


BL0C1 


04202 


045000 




OAC 


MEMADR 


00203 


205013 




LAC 


BL0C2 ■ 


00204 


044777 




DAC 


LSTLOC 


00205 


6011 6? 


/ 

BLKA4 


JMP 


L0»4+l 


00206 


204221 


LAC 


D0NE7 


00207 


045011 




DAC 


EXIT 


00210 


760000 




LAW 




0"2il 


545014 




SAD 


BL0C3 


00212 


60422? 




JMP 


BLKB4 


04913 


104371 




JMS 


CKADR 


04214 


205014 




LAC 


BL0C3 


00215 


045000 




DAC 


MEMADR 


0021 6 


205015 




LAC 


RL0C4 


00217 


044777 




OAC 


LSTLOC 


00220 


60067? 




JMP 


REST2+2 



/RESTORE BLOCK 1 LIMITS 



/CHECK ACS FOR HALT 
/GO MALT 

/CHECK BIT 10 

/GO ACCEPT INPUT 



/WRITE l'S INTO ALL OF CORE 

/WRITE BLOCK 1 
/C(D0NE7)=BLKB4 

/SEE IF ? BLOCKS 



/C(D0NF7) = BLK84 
/READ BLOCK 2 



.EJECT 



XMADR9 



PAGE 67 



04221 

04222 
04223 
04224 
04225 
04226 

04227 
04230 
04231 
04232 
04233 
04234 

0423 5 
04236 
04237 
04240 
04241 
04242 
04243 
04244 
04245 
04246 
04247 
04250 
04251 
04252 
04253 
04254 

04255 



00422? 

20501? 
045000 
205013 
044777 
601246 

204255 
045011 
760000 
545014 
604235 
604214 

750004 
741100 
10206? 
505051 
740200 
60231? 
205033 
545100 
604200 
744010 
4 50 3 3 
205012 
045000 
205013 
044777 
601164 

004235 



/ 

00NE7 

/ 

HLKB4 



/ 

BLKC4 



/ 
«IKD4 



BLKB4 



LAC 


BLOC1 


DAC 


MEMADR 


LAC 


BLOC2 


DAC 


LSTLOC 


JMP 


FWD4-4 


LAC 


O0NE8 


DAC 


EXIT 


LAW 




SAO 


BL0C3 


JMP 


RLKD4 


JMP 


B L K A 4 + 6 


LAS 




SPA 




JMS 


HALT 


AND 


K200 


SHA 




JMP 


KYRRO 


LAC 


BtTN 


SAD 


K400K 


JMP 


SIMU4 


RCL 




OAC 


BITN 


LAC 


BLOC1 


DAC 


MEMADR 


LAC 


BL0C2 


OAC 


LSTLOC 


JMP 


L0P4+3 



/READ BLOCK 1 AGAIN 
/C<nnNE8)=BLKD4 



/CHFCK ACS 
/HO HALT 

/CHECK BIT 10 
/GO ACCEPT INPUT 

/DONF 18 BITS IF EQUAL 
/START OVER 



/DO NEXT BIT POSITION 



/ 

D0NE8 
/ 



BLK04 



.EJECT 
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/St'TuP 
/ 

S1MU5 


FOR TFST '■; 


00256 


102^35 


JMS WRT1S 


04257 


205034 




LAC PCW 


04260 


045036 




DAC CNTRL 


00261 


205012 




LAC BLOCl 


0^262 


045000 




DAC MEM.AOR 


00263 


205013 




LAC 8L0C2 


04264 


044777 




DAC LSTLOC- 


04265 


601334 




JMP L0P5+1 


04266 


204407 


BLKA5 


LAC D0ME9 


04267 


045011 




DAC EXIT 


04270 


205012 




LAC BLOCl 


00271 


045000 




DAC MEMADR 


04272 


601437 


/ 

BLKB5 


JMP RBLK5 


04273 


204410 


LAC DON10 


04274 


045011 




OAC EXIT 


04275 


205012 




LAC BLOCl 


04276 


045000 




nAC MEMADR 


04277 


601501 


/ 

BLKC5 


JMP RBAK5+3 


04300 


204411 


LAC D0N11 


00301 


045011 




DAC EXIT 


04302 


760000 




LAW 


04303 


545014 




SAD BL0C3 


04304 


604313 




JMP BLKD5 


04305 


104371 




JMS CKADR 


04306 


205014 




LAC BL0C3 


04307 


045000 




DAC MEMADR 


00310 


205015 




LAC BL0C4 


04311 


044777 




DAC LSTLOC 


04312 


600672 


/ 

BLKD5 


JMP REST2+2 


••M313 


205035 


LAC PCWA 


04314 


545036 




SAD CNTRL 


00315 


604320 




JMP BLKE5 


00316 


045036 




DAC CNTRL 


04317 


604261 


/ 

BLKE5 


JMP SIMU5+3 


00320 


102035 


JMS WRT1S 


00321 


205012 




LAC BLOCl 


04322 


045000 




DAC MEMADR 


04323 


205013 




LAC RL0C2 


00324 


044777 




DAC LSTLOC 


00325 


601550 


/ 

BLKF5 


JMP L0P5A 


00326 


204412 


LAC D0N12 


04327 


045011 




DAC EXIT 


04330 


760000 




LAW 


04331 


545014 




SAD BL0C3 


00332 


604334 




JMP BLKG5 


00333 


604305 




JMP BLKC5+5 



/WRT1S INTO ALL OF CORE 

/PCW=036074 
/CNTPrPATTERN CONTROL WORD 
ZlST LOC. OF BLOCK 1 

/LAST LOC. OF BLOCK 1 

/WRITE BLOCK 1 FORWARD 

/C(D0K ! F9)=BLKB5 

/RESTORE LIMITS 

/RFAD RLOCK 1 FORWARD 

/C(DO.N10)=BLKC5 

/RESTORE LIMITS 

/READ BLOCK 1 BACKWARD 

/C(D0NL1)=BLKD5 

/SEE IF 2 BLOCKS 

/NO. WRITE COMPLEMENT 

/1ST LOC. OF BLOCK 2 

/LAST LOC. OF BLOCK 2 

/READ BLOCK 2 

/PCWA=741700 

/DONE COMPLEMENT IF EQUAL 

/SETUP TO WRITE BACKWARD 

/WRITE COMPLEMENT IN BLOCK 1 

/WRITE 1'S INTO ALL OF CORE 
/1ST LOC. OF BLOCK 1 

/LAST LOC. OF BLOCK 1 

/WRITE BLOCK 1 BACKWARD 

/C(D0N12)=BLKG5 

/SEE IF 2 BLOCKS 
/READ BLOCK 2 



•EJECT 



XMA 


0R9 PAGE 69 




04334 


204413 




04335 


045011 




04336 


205013 




04337 


044777 




04340 


205035 




04341 


545036 




04342 


205034 




04343 


045036 




4 34 4 


604270 




04345 


204414 




04346 


045011 




04347 


604275 




04350 


204415 




04351 


045011 




04352 


760000 




04353 


545014 




04354 


604356 




04355 


604305 




04356 


205035 




04357 


545036 




04360 


741000 




04361 


604320 




04362 


750004 




04363 


741100 




04364 


10206? 




04365 


505051 




04366 


740200 




04367 


60231? 




04370 


604?56 




04371 


000000 




04372 


205014 




04373 


740001 




04374 


345043 




04375 


345015 




04376 


740100 




04377 


624371 




04400 


205014 




04401 


044537 




04402 


205015 




04403 


045014 




04404 


204537 




04405 


045015 




04406 


624371 



/ 




RLKG5 


LAC D0N13 




DAC EXIT 




LAC BL0C2 




DAC LSTIOC 




LAC PCWA 




SAD CNTRL 




LAC PCW 




DAC CNTRL 


/ 
RLKH5 


JMP 8LKA5+2 


LAC 00N14 




DAC EXIT 




JMP BLKB5+2 


/ 




BLKJ5 


LAC O0N15 




DAC EXIT 




LAW 




SAD BL0C3 




JMP BLKL5 




JMP BLKC5+5 


/ 




BLKL5 


LAC PCWA 




SAD CNTRL 




SKP 




JMP 8LKE5 




LAS 




SPA 




JMS HALT 




AND K200 




S2A 




JMP KYRRD 




JMP SIMU5 


/ 




CKADR 







LAC BL0C3 




CMA 




TAD Kl 




TAD BL0C4 




SMA 




JMP* CKADR 




LAC BL0C3 




DAC CRLF 




LAC BL0C4 




DAC BL0C3 




LAC CRLF 




DAC BL0C4 


/ 


JMP» CKADR 




.EJECT 



/C(D0N13)=BLKH5 



/PCW«=741700 

/SEE WHICH TO READ 

/PCW=036074 

/READ BLOCK i FORWARD 

/C(00N14)r8LKJ5 

/READ BLOCK l BACKWARD 

/C(00N15)=BLKL5 

/SEE IF 2 SELECTED 
/READ BLOCK 2 

/PCWA=741700 

/ALL DONE IF EQUAL 

/WRITE COMPLEMENT BACKWARO 

/CHFCK ACS0 FOR HALT 
/GO HALT 

/CHECK ACS 10 
/GO ACCEPT INPUT 
/LEFR LOOPING 



/1.ST ADR, IS > 2ND IF A 1 

/1ST IS < 2ND 

/REVFRSE BL0C3 AND BLOC4 
/SAVF BL0C3 



/EXIT 



\ m \ n r <j 



PAC.F 



01407 


004273 


/ 

D0NE9 


HLKB5 


01410 


004300 


DON10 


RLKC5 


01411 


4 313 


D0N11 


RLKD5 


04412 


004334 


D0N12 


RLKG5 


04413 


004345 


D0N13 


PLKH5 


a i 4 1 4 


004350 


D0N14 


RLKJ5 


0441 5 


004356 


D0N15 

/ 

GENADR 


RLKL5 


01416 


000000 





0441 7 


707704 




LEM 


04420 


222527 




LAC# ROTA 


04421 


045017 




OAC NROTA 


01422 


205033 




LAC BITN 


04423 


445017 


CNROT 


IS? NROTA 


014 2 4 


604442 




JMP GOLEFT 


01425 


245021 




XOR ADRCW 


01426 


045021 




OAC AORCW 


01427 


777777 




LAW -1 


04430 


562527 




SAD* ROTA 


04 431 


604434 




JMP .+3 


01432 


442527 




ISZ ROTA 


04433 


624416 




JMP« GFNADR 


014 3 4 


202530 




LAC R0T8 


01435 


042527 




DAC ROTA 


014 3 6 


222527 




LAC» ROTA 


01437 


045017 




OAC NROTA 


01440 


444416 




IS? GENADR 


04441 


624416 


/ 

GOLEFT 


JMP« GFNADR 


04442 


744010 


RCL 


4 4 4 3 


604423 


/ 


JMP CNROT 






.EJECT 



/ROUTINE TO ASSEMBLE ADDRESSES 



/INPUT NUMBER 

/INCREMEN SHIFT COUNT 

/ROTATE 1 LEFT 

/XOR WITH PARTIAL ADDRESS 



/PEC'D 5 NUMBERS IF FOUAL 

/INCREMENT LAW POINTER 
/GO WAIT FOR NEXT 

/RESTORE LAW POINTER 



/EXIT 



XMAQR9 
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4 4 4 4 
04445 
04446 
04447 
04450 

04451 
04452 

04453 
04454 
04455 
04456 

04457 
04460 
04461 
04462 
04463 
04464 
04465 
04466 



000000 
104537 
204467 
04503? 
104500 
204470 
04503? 
104500 
204471 
04503? 
104500 
20447? 
04503? 
104500 
204473 
04503? 
104500 
104537 
624444 



/HEADER 
/ 

PHOR 


ROUTINE 









JMS 


CRLF 




LAC 


TSTx 




DAC 


PRNT 




JMS 


CLMN 




LAC 


ADRX 




DAC 


PRNT 




JMS 


CLMN 




LAC 


GDATX 




DAC 


PRNT 




JMS 


CLMN 




LAC 


BDATX 




DAC 


PRNT 




JMS 


CLMN 




LAC 


RWPA 




DAC 


PRNT 




JMS 


CLMN 


^DONE 


JMS 


CRLF 



/CR, LE 

/POINTER FOR "TEST" 



/OCTAL AOR. 



/GOOD 



/BAD 



JMPo PHDR /START PROGRAM 



/BANK WITH PAT. 



/CR.I..F 



04467 
04470 
04471 
04472 
04473 
04474 

04475 
04476 
04477 



004551 
004555 
004564 
004570 
004574 
004751 

104444 
740040 
600100 



/ 
/ 

TSTX 

ADRX 

GOATX 

BDATX 

BWPA 

END 

/ 

HDR 



TST 

ADR 

GOAT 

RDAT 

RWPAT 

PEND 

JMS PHOR 

HLT 

JMP BEGIN 



/POINTFR FOR "TEST- 

/"OCTAL ADR." 

/"GOOD" 

/"BAH" 

/"BANK WITH PAT." 



.EJECT 



< M „ p R 9 



PAGE 7? 







/PRINT 

/ 

CLMN 




H'-500 


000000 





pi 4 5 1 


44503? 




is? prnt 


0450? 


??503? 




LAC» PRNT 


04503 


741?00 




SNA 


4 5 4 


6045?1 




JMP SPAC5 


04505 


700406 




TLS 


04 506 


700401 




TSF 


04507 


604506 




JMP . -l 


04510 


74?0?0 




rtr; 


04 511 


74?0?0 






0451? 


74?0?0 






04513 


74?0?0 




RTr; 


04514 


740020 






04515 


70040A 




TLS 


04516 


700401 




TSF 


34517 


604516 




JMP ,-1 


045?0 


604501 


/ 

SPAC5 


JMP CLMN+1 


045?1 


204500 


LAC CLMN 


045?? 


505103 




AND K17S 


045?3 


544536 




SAO ONHDR 


045?4 


6?4500 




JMP* CLMN 


045?5 


777773 




LAW -5 


045?6 


045006 




OAC LOOPT 


045?7 


7 6 2 4 




LAW 240 


04530 


700406 


SPCE 


TLS 


04531 


700401 




TSF 


0453? 


604531 




JMP .-1 


04533 


445006 




IS? LOOPT 


04534 


604530 


/ 

/ 

DNHOR 

/ 

CRLF 


JMP SPCE 


04535 


624500 


JMPa CLMN 


04536 


004465 


HDONE 


04537 


000000 





04540 


760?15 




LAW 215 


04541 


700406 




TLS 


04542 


700401 




TSF 


04543 


60454? 




JMP .-1 


0*1544 


544546 




SAD .+? 


04545 


6?4537 




JMP« CRLF 


04546 


76021? 




LAW ?l? 


04547 


604541 




JMP CRLF+2 


04550 


752525 


OLMT 
/ 


752525 



RTR; 



RAR 



/INCREMENT CHAR. POINTFR 
/GET 2 CHARS 

/OONF 1 COLUMN HEADER IF 
/DO 5 SPACES 

/PRINT 1ST 



RTR 



/PRINT 2ND 

/GET NEXT PAIR 

/C(CLMN)=(PC) AFTER JMS 

/C(ONHOR)= LOCATION HDONE 

/DONF WITH HEADER 

/-5 

/SPACE 



/SKIP AFTER 5 SPACES 



/GET NEXT COLUMN HEADER 



/CR 



/LE 



.EJECT 



MAQR9 


04551 


04552 


H4553 


04554 


04555 


04556 


04557 


04560 


00561 


04562 


04563 


0^564 


04565 


04566 


04567 


04570 


04571 


04572 


04573 


04574 


04575 


04576 


04577 


04600 


04601 


04602 


04603 


04604 
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004551 
3 53 24 

324323 

000000 

004555 
303317 
301324 
240314 
304301 
256322 
000000 

0045^4 
317307 
304317 
000000 

004570 
301302 
377304 
000000 

004574 
301302 
313316 
327240 
324311 
240310 
301320 
256324 
000000 



TST 



/ 

AOR 



/ 

GOAT 



/ 

BDAT 



SWPAT 



305324; 



303317; 



324323 



301324; 



/TEST 



/OCTAL ADR. 
240314; 304301 



/GOOD 



/BAD 



256322; 

317307; 304317 


301302; 377304 




/RANK WITH PAT, 
301302; 313316; 327240; 324311 



240310! 301320! 256324 



.EJECT 



\M*0R9 



P4RE 74 



01606 
04607 
04610 
0461 1 
04612 

04613 
04614 
04615 
04616 
04617 
04620 
046?1 
04622 

046?3 
04624 
0^625 
0"626 
04627 
04630 
01631 
04632 

04633 
04634 
04635 
4 6 3 6 
04637 
04640 
04641 
04642 

04643 
04644 
04645 
04646 
04647 
04650 
04651 
04652 
04653 
04654 
04655 
04656 
04657 

04660 
04661 
04662 
04663 
04664 
04665 
04666 
04667 
04670 



00460S 
3 53 24 
324323 
240243 
240255 
000 00 

004613 
325323 
320320 
305322 
323323 
255240 
377240 
000000 

004623 
314302 
303317 
240313 
261243 
255240 
377240 
000000 

004633 
314302 
303317 
24 313 
262243 
255240 
377240 
00000H 

004643 

311314 

311315 

323324 

317240 

305326 

314322 

320301 

320240 

31732? 

322307 

315301 

000000 

004660 
322320 
307317 
301322 
240315 
323311 
311240 
240316 
000000 



TSN 



305324i 324323; 240243; 240255 



/ 

SUPS 



/ 

BLKS 



/ 

BLKT 



/ 

OVLAP 



/ 

PLOC 



325323; 



255240: 



314302; 



255240; 



314302; 



255240; 



311314: 



320320; 



377240; 



303317; 



377240; 



303317; 



377240; 



311315; 



3053P2; 323323 



24031 3: 



261243 



240313: 



262243 



323324; 



317240 



305326; 314322; 320301; 32024E 



317322; 322307; 315301; 



322320; 307317; 301322; 240315 



323311; 311240; 240316; 



XM4DRQ 
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04671 
04672 
04673 
04674 
04675 

04676 
04677 
04700 

04701 

04702 

04703 
04704 
04705 
04706 
04707 
04710 
04711 
04712 
04713 
04714 
04715 

04716 
04717 
04720 
04721 
04722 
04723 
04724 
04725 
04726 
04727 
04730 
04731 

04732 
04733 
04734 
04735 
04736 
04737 
04740 
04741 
04742 
04743 
04744 

04745 
04746 
04747 
04750 
04751 
04752 
04753 
04754 



004671 
317314 
305327 

24032? 
000000 

004676 
320325 
305320 
24032? 
000000 

004703 
313264 
306240 
305311 
304314 
317240 
240306 
30130? 
313316 
377240 
000000 

004716 
322305 
31732? 
24032? 
316311 
323240 
314305 
303305 
305324 
240304 
313264 
000000 

00473? 
256314 
256314 
305240 
303330 
305305 
323304 
325240 
314256 
377256 
000000 

004745 
314301 
377314 
000000 
004751 
316305 
377304 
000000 



LOWER 



/ 

HIGH 



/ 

FIELD 



/ 

SLTER 



/ 

LMTUl 



/ 

ALL 



PEND 



317314; 305327; 240322! 



320325; 305320; 240322; 



313264; 306240; 305311; 304314 



317240; 240306; 301302; 313316 



377240; 



322305; 



317322! 



240322; 316311 



323240; 314305; 303305; 305324 



240304! 313264; 



256314; 256314; 305240; 303330 



305305; 323304; 325240; 314256 



377256; 



314301; 377314; 



316305; 377304; 



.EJECT 



<MAnp9 
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0-37^5 
047156 

04 757 
4 760 
0*761 
0^76? 
04763 
0*764 
* 7 6 5 
0^766 
0*767 
04770 
4 7 71 
04772 
04773 
04774 
04775 

04776 
04777 
K 000 
0=001 
0S002 
0=003 
0S004 

= 005 
= 006 
0=.007 
0^010 
= 011 
05012 
05013 
0*014 
05015 
= 016 
0*017 
05020 
05021 
05022 
C 023 
05024 
= 025 
C 0?6 
= 027 
= 030 
= 031 



000000 

000000 

00 00 
000000 

00000 

000000 

000000 
000000 
000000 
000000 
00000C1 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
00000 
000000 

000000 

000000 

000000 
000000 
000000 
000000 
0000 
000000 

000000 

760000 
760000 
760000 
760000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000127 
010127 



BAD 





flags 





f R W R U 













































FLOAD 





FLOADA 





MCW 





MCWA 





ULRNK 





LASTl 





LAST? 





LSTLOC 





MEMAOR 





FIRST1 





FIRST2 





TNUM 





PPETE 





WRCNT 





LOOPT 





PATR 





PATBNK 





EXIT 





BLOCl 


LAW 


RLOC? 


LAW 


RL0C3 


LAW 


BL0C4 


LAW 


LSTSUP 





NROTA 





OVFR 





ADPCW 





LAST 





NXLOC 





SOURCE 





DESTN 





MOVED 





MOVES 





PGNLO 


STOVER 


BGNHI 


STOVER +10000 


/ 





/SAVES BAD OATA 

/VARIOUS PITS = PROGRAM ELAqS 

/STORFS APR. OF 1ST FRROR IN EACH RANK 



/BANK PROGRAM LOADED IN 

/RANK CURRENTY WITH PROGRAM 

/VALUE OF ACS 

/SAMF AS MCW 

/HAS HIGHEST BANK TO TEST 

/VERY LAST LOC. TO TEST IN HIGH RANK 

/SAMF AS LASTl, BUT CHANGES 

/LAST LOC. TO TEST IN CURRENT BANK 

/ADDPFSS COUNTER 

/1ST LOC. TO TEST IN FIRST BANK 

/SAMF AS FIRSTl, BUT CHANGES 

/CURRENT TEST* (ASCII) 

/LOOP COUNTER 

/LOOP COUNTER 

/TEST LOOP COUNTER 

/OATA FOR COMPARISON 

/CURRENT BANK WITH PATTERN 

/EXITS TO READ FORWARD OR BACKWARD 

/1ST ADR. IN BLOCK 1 

/LAST ADR. IN BLOCK 1 

/1ST ADR, IN BLOCK 2 

/LAST ADR. IN BLOCK 2. 

/SAVFS LAST SUPRESSED ADR. 

/SHIFT COUNTER 

/SAVFS EXIT ADRS. 

/CONTAINS PARTIALLY ASSEM, 



/ADR. 
/NEXT 
/BANK 
/BANK 
/ADR. 

/EXIT 
/EXIT 



OF LAST 
RANK TO 
TO MOVE 
TO MOVE 



ADR. 



READ 
MOVE 
FROM 
TO 



ERROR 
TO 



COUNTERS FOR MOVING 



ADR. 
AOR. 



TO LO 4K 
TO HI 4K 



.EJECT 



KM4QR9 
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r -032 


00000H 


PRNT 





0*033 


000000 


HITN 





C 034 


036074 


PCW 


036074 


C 035 


741700 


PCWA 


741700 


0^036 


000000 


CNTRL 





C 037 


00000P 


COMPR 




0^040 


000000 


OCADR 





05041 


00 00 


ROOD 





0*042 


000000 


K0 





05043 


000001 


Kl 


1 


0S044 


000003 


K3 


3 


K 045 


000014 


K14 


1 4 


05046 


000017 


K17 


17 


05047 


00 00 4 


K40 


40 


05050 


000100 


K100 


100 


05051 


000200 


K200 


200 


0*052 


000215 


K215 


215 


05053 


000254 


K254 


254 


05054 


000?6^ 


K260 


260 


0R055 


000261 


K261 


261 


C 056 


00026? 


K262 


262 


0*057 


000263 


K263 


263 


0*060 


00026" 


K264 


264 


0*061 


000265 


K265 


265 


0*062 


000272 


K272 


272 


0*063 


000370 


K370 


370 


05064 


000377 


K377 


377 


0*065 


000400 


K400 


400 


0*066 


000007 


K7 


7 


05067 


070000 


K70K 


070000 


0*070 


002000 


K2K 


2000 


0*071 


004000 


K4K 


4000 


05072 


010000 


K10K 


10000 


05073 


020000 


K20K 


20000 


0*074 


760000 


M20K 


760000 


0*075 


040000 


K40K 


40000 


0*076 


060000 


K60K 


60000 


0*077 


076000 


K76K 


76000 


0*100 


400000 


K400K 


400000 


0*101 


700000 


K700K 


700000 


0*102 


007777 


K7S 


7777 


0*103 


017777 


K17S 


17777 


0*104 


037777 


K37S 


37777 


0*105 


057777 


K57S 


57777 


0*106 


077777 


K77S 


77777 


= 107 


005111 


KEND 
/ 


. +2 



/POINTER FOR PRINT ROUTINES 
/MOLOS A SLIDINC BIT PATTERN 
/PATTERN WORD FOR TEST 5 
/OOMPLFMFNT OF PCW 
/TEMP. STORAGE FOR PCW OR PCWA 
/TFMP. STORAGE FOR TST* COMPARE WORD 
/FARING OCTAL ADR. 
/GOOO DATA 



004475 



.END HDR 

NO ERROR LINES 



/PRINT HEADER AFTER LOADING 



\M-nR9 


PAGE 7 


iD.IH! 


02002 


AD>< 


^45=55 


ao><cw 


05021 


*0-X 


04470 


a D •■' 1 


00245 


■\D-'-? 


00251 


•*D-3 


00253 


A D -< 4 


002^5 


>D^<5 


00257 


•\ D 6 


00263 


AD"7 


00265 


•D^8 
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